IBM Lotus Symphony


FreeFile-Funktion [Laufzeit]

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.

Syntax:

FreeFile

Rückgabewert:

Integer

Parameter:

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.

Fehlercodes

5 Invalid procedure call

67 Too many files

Beispiel:

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


Produktfeedback | Zusätzliche Dokumentation | Marken