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