FreeFile Function
Visszaadja a fájlmegnyitáshoz rendelkezĂ©sre állĂł következĹ‘ fájl számát. A fĂĽggvĂ©ny segĂtsĂ©gĂ©vel Ă©s a fájlszám megadásával nyissa meg a fájlt, amelyet mĂ©g nem használ egy jelenleg megnyitott fájl.
Szintaxis:
FreeFile
Visszatérési érték:
Integer (egész szám)
Paraméterek:
Ez a fĂĽggvĂ©ny csak közvetlenĂĽl egy Open utasĂtás elĹ‘tt használhatĂł. A FreeFile visszaadja a következĹ‘ elĂ©rhetĹ‘ fájl számát, de nem foglalja le.
PĂ©lda:
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, "A szöveg első sora"
Print #iNumber, "Másik szövegsor"
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