Example - FreeFile Function

  1. Sub Main()

    1. Dim Mx, FileNumber

      For Mx = 1 To 3

      1. FileNumber = FreeFile

        Open "c:\e1\TEST" & Mx For Output As #FileNumber

        Write #FileNumber, "This is a sample."

        Close #FileNumber

      Next Mx

      Open "c:\e1\test1" For Input As #1

      Do While Not EOF(1)

      1. MyStr = Input(10, #1)

        MsgBox MyStr

      Loop

      Close #1

    End Sub