Sub Main () Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file. Line Input #1, TextLine ' Read line into variable. Print TextLine ' Print to Debug window. Loop
Close #1 ' Close file. End Sub Sub test Open "MYFILE" For Input As #1 ' Open file for input.
Do While Not EOF(1) ' Check for end of file. Line Input #1, InputData ' Read line of data. MsgBox InputData Loop
Close #1 ' Close file. End Sub Sub FileIO_Example() Dim Msg ' Declare variable. Call Make3Files() ' Create data files. Msg = "Several test files have been created on your disk. " Msg = Msg & "Choose OK to remove the test files." MsgBox Msg
For I = 1 To 3 Kill "TEST" & I ' Remove data files from disk. Next I End Sub Sub Make3Files () Dim I, FNum, FName ' Declare variables.
For I = 1 To 3 FNum = FreeFile ' Determine next file number. FName = "TEST" & FNum Open FName For Output As FNum ' Open file. Print #I, "This is test #" & I ' Write string to file. Print #I, "Here is another "; "line"; I Next I
Close ' Close all files. End Sub