FileSystem.FreeFile Methode
Definition
Wichtig
Einige Informationen beziehen sich auf Vorabversionen, die vor dem Release ggf. grundlegend überarbeitet werden. Microsoft übernimmt hinsichtlich der hier bereitgestellten Informationen keine Gewährleistungen, seien sie ausdrücklich oder konkludent.
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.