Concludes input/output (I/O) to a file opened using the FileOpen function.

Public Sub FileClose(ParamArray FileNumbers() As Integer)

Parameter

FileNumbers()

Optional. Parameter array of 0 or more channels to be closed.

Exceptions/Errors

Remarks

If you omit FileNumbers(), all active files opened by the FileOpen function are closed.

When you close files that were opened for Output or Append, the final buffer of output is written to the operating system buffer for that file. All buffer space associated with the closed file is released.

When the FileClose function is executed, the association of a file with its file number ends.

Example

This example uses the FileClose function to close a file opened for Input.

Dim TextLine As String
FileOpen(1, "TESTFILE", OpenMode.Input)   ' Open file.
Do While Not EOF(1)   ' Loop until end of file.
   TextLine = LineInput(1)   ' Read line into variable.
   Debug.WriteLine(TextLine)   ' Print to the Immediate window.
Loop
FileClose(1)   ' Close file.

See Also

End Statement | FileOpen Function | Reset Function | Stop Statement | File Access with Visual Basic Run-Time Functions | IOException