IBM Lotus Symphony


Funktionen FreeFile [Runtime]

Returnerer det næste ledige filnummer til åbning af en fil. Funktionen bruges til at åbne en fil ved hjælp af et filnummer, som ikke allerede bruges af en åben fil.

Syntaks:

FreeFile

Returværdi:

Heltal

Parametre:

Funktionen kan kun bruges lige foran en Open-sætning. FreeFile returnerer det næste ledige filnummer, men reserverer ikke nummeret.

Fejlkoder

5 Ugyldigt procedurekald

67 Der er for mange filer

Eksempel:

Sub ArbejdMedEnFilEksempel

Dim iNummer As Integer

Dim sLinje As String

Dim aFil As String

Dim sMeddl as String

aFil = "c:\data.txt"

sMeddl = ""

iNummer = Freefile

Open aFil For Output As #iNummer

Print #iNummer, "Første linje tekst"

Print #iNummer, "Anden linje tekst"

Close #iNummer

iNummer = Freefile

Open aFil For Input As #iNummer

While not eof(#iNummer)

Line Input #iNummer, sLinje

If sLinje <>"" then

sMeddl = sMeddl & sLinje & chr(13)

End If

wend

Close #iNummer

Msgbox sMeddl

End Sub


Produktfeedback | Yderligere dokumentation | Varemærker