Close Statement Example

This example uses the Close statement to close all three files opened for Output.

Dim I, FileName
For I = 1 To 3    ' Loop 3 times.
    FileName = "TEST" & I    ' Create file name.
    Open FileName For Output As #I    ' Open file.
    Print #I, "This is a test."    ' Write string to file.
Next I
Close    ' Close all 3 open files.