IBM Lotus Symphony


Функция FreeFile [встроенная]

Возвращает следующий доступный номер для открытия файла. Эта функция используется для связывания открываемого файла со свободным номером (который еще не связан ни с одним открытым файлом).

Синтаксис:

FreeFile

Возвращаемое значение:

Integer

Параметры:

Эта функция должна вызываться непосредственно перед оператором Open. FreeFile возвращает следующий свободный номер файла, но не резервирует его.

Коды ошибок

5 Недопустимый вызов процедуры

67 Слишком много файлов

Пример:

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


Комментарии по продукту | Дополнительная документация | Товарные знаки