FreeFile Function
Возвращает следующий имеющийся номер файла для открытия. Эта функция удобна для открытия файла с помощью номера файла, еще не используемого текущим открытым файлом.
Синтаксис
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