IBM Lotus Symphony


FreeFile-funksjonen[kjøretid]

Returnerer neste tilgjengelige filnummer for åpning av en fil. Bruk denne funksjonen for å åpne en fil med et filnummer som ikke allerede er i bruk av en åpen fil.

Syntaks:

FreeFile

Returverdi:

Heltall

Parametere:

Denne funksjonen kan bare brukes umiddelbart foran en Open-setning. FreeFile returnerer neste tilgjengelige filnummer, men reserverer det ikke.

Feilkoder

5 Ugyldig prosedyrekall

67 For mange filer

Eksempel:

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, "Første linje med tekst"

Print #iNumber, "En annen linje med tekst"

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


Tilbakemelding om produktet | Annen dokumentasjon | Varemerker