IBM Lotus Symphony
|
Возвращает следующий доступный номер для открытия файла. Эта функция используется для связывания открываемого файла со свободным номером (который еще не связан ни с одним открытым файлом).
FreeFile
Integer
Эта функция должна вызываться непосредственно перед оператором Open. FreeFile возвращает следующий свободный номер файла, но не резервирует его.
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, "Первая строка файла"
Print #iNumber, "Вторая строка файла"
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