Befehlsreferenz - Dateisystem: FreeFile-Funktion
VB-Versionen: VB4 | VB5 | VB6
Beschreibung:
Gibt die nächste verfügbare Dateinummer zurück, die für die Open-Anweisung verwendet werden kann.
Mit der FreeFile-Funktion wird sichergestellt, dass keine Dateinummer doppelt verwendet wird.
Syntax:
FreeFile ( [RangeNumber] )
Parameter:
RangeNumber | Optional. (Integer) 0 : (Standard) Es wird eine Dateinummer von 1 bis 255 zurückgegeben. 1 : Es wird eine Dateinummer von 256 bis 511 zurückgegeben. |
Dateinummern von 1 bis 255 sollen verwendet werden, wenn keine andere Anwendung auf die Datei zugreifen soll.
Dateinummern von 256 bis 511 für Dateien, auf die auch andere Anwendungen zugreifen können müssen.
Beispiel:
Dim TextLine As String, ff As Integer ff = FreeFile ' Nächste verfügbare Dateinummer Open "test.txt" For Input As #ff ' Testdatei öffnen Do While Not EOF(ff) ' Solange das Dateiende nicht erreicht ist Line Input #ff, TextLine ' nächste Zeile der Datei in TextLine speichern Msgbox InputData Loop Close #ff ' Datei schließen