FileSystem.FreeFile Methode

Definition

Gibt einen Integer-Wert zurück, der die nächste zur Verwendung durch die FileOpen-Funktion verfügbare Dateinummer darstellt.

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

Gibt zurück

Ein ganzzahliger Wert, der die nächste für die Funktion FileOpen verfügbare Dateinummer angibt.

Ausnahmen

Mehr als 255 Dateien verwendet.

Beispiele

In diesem Beispiel wird die FreeFile Funktion verwendet, um die nächste verfügbare Dateinummer zurückzugeben. Fünf Dateien werden für die Ausgabe innerhalb der Schleife geöffnet, und einige Beispieldaten werden in jede datei geschrieben.

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

Hinweise

Verwenden Sie FreeFile , um eine Dateinummer anzugeben, die noch nicht verwendet wird.

Gilt für:

Weitere Informationen