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