IBM Lotus Symphony
|
Palauttaa seuraavan tiedoston avaamista varten käytettävissä olevan tiedoston numeron. Tämän funktion avulla voit käyttää tiedoston avaamiseen numeroa, joka ei ole jo tällä hetkellä avattuna olevan tiedoston käytössä.
FreeFile
Kokonaisluku
Funktiota voi käyttää vain juuri ennen Open-lausetta. FreeFile palauttaa seuraavan käytettävissä olevan tiedoston numeron, mutta ei varaa sitä.
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, "Ensimmäinen tekstirivi"
Print #iNumber, "Toinen tekstirivi"
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