FreeFile-Funktion
Aktualisiert: November 2007
Gibt einen Integer-Wert zurück, der die nächste, für die FileOpen-Funktion verfügbare Dateinummer darstellt.
Public Function FreeFile() As Integer
Ausnahmen
Ausnahmetyp |
Fehlernummer |
Bedingung |
|---|---|---|
Mehr als 255 Dateien verwendet. |
Beachten Sie die Spalte "Fehlernummer", wenn Sie Visual Basic 6.0-Anwendungen aktualisieren, die eine unstrukturierte Fehlerbehandlung verwenden. (Sie können die Fehlernummer mit der Number-Eigenschaft (Err-Objekt) vergleichen.) Wenn möglich, sollten Sie jedoch erwägen, eine solche Fehlersteuerung durch eine Übersicht über die strukturierte Ausnahmebehandlung für Visual Basic zu ersetzen.
Hinweise
Verwenden Sie FreeFile, wenn Sie eine Dateinummer bereitstellen, die noch nicht in Gebrauch ist.
Beispiel
In diesem Beispiel wird mit der FreeFile-Funktion die nächste verfügbare Dateinummer zurückgegeben. In der Schleife werden fünf Dateien zur Ausgabe geöffnet und mit Beispieldaten beschrieben.
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 für Entwickler intelligenter Geräte
Diese Funktion wird nicht unterstützt.
Anforderungen
Namespace:Microsoft.VisualBasic
**Modul:**FileSystem
**Assembly:**Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)