This documentation is archived and is not being maintained.

FreeFile Function

Returns an Integer value representing the next file number available for use by the FileOpen function.

Public Function FreeFile() As Integer


Exception type Error number Condition
IOException 67 More than 255 files are in use.


Use FreeFile to supply a file number that is not already in use.


This example uses the FreeFile function to return the next available file number. Five files are opened for output within the loop, and some sample data is written to each.

Dim count As Integer
Dim fileNumber As Integer
For count = 1 To 5   
   fileNumber = FreeFile()
   FileOpen(fileNumber, "TEST" & count & ".TXT", OpenMode.Output)
   PrintLine(fileNumber, "This is a sample.")

Smart Device Developer Notes

This function is not supported.


Namespace: Microsoft.VisualBasic

Module: FileSystem

Assembly: Microsoft Visual Basic .NET Runtime (in Microsoft.VisualBasic.dll)

See Also

FileOpen Function | IOException Class