Bewerken

Delen via


FileSystem.FreeFile Method

Definition

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

public:
 static int FreeFile();
public static int FreeFile ();
static member FreeFile : unit -> int
Public Function FreeFile () As Integer

Returns

An integer value that represents the next file number available for use by the FileOpen function.

Exceptions

More than 255 files are in use.

Examples

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.")
    FileClose(fileNumber)
Next

Remarks

Use FreeFile to supply a file number that is not already being used.

Applies to

See also