IBM Lotus Symphony
|
Gibt die nächste verfügbare Dateinummer zum Öffnen einer Datei zurück. Verwenden Sie diese Funktion zum Öffnen einer Datei mithilfe einer Dateinummer, die nicht bereits von einer geöffneten Datei verwendet wird.
FreeFile
Integer
Diese Funktion kann nur unmittelbar vor einer Open-Anweisung verwendet werden. FreeFile gibt die nächste verfügbare Dateinummer zurück, reserviert diese jedoch nicht.
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg as String
aFile = "c:\data.txt"
sMsg = ""
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "Erste Textzeile"
Print #iNumber, "Weitere Textzeile"
Close #iNumber
iNumber = Freefile
Open aFile For Input As #iNumber
While not eof(#iNumber)
Line Input #iNumber, sLine
If sLine <>"" then
sMsg = sMsg & sLine & chr(13)
end if
wend
Close #iNumber
Msgbox sMsg
End Sub