Функция FreeFile

Возвращает целое число , представляющее следующий номер файла , доступный для использования инструкцией Open .

Синтаксис

FreeFile [ (rangenumber) ]

Необязательный аргумент rangenumber — это вариант, указывающий диапазон, из которого возвращается номер следующего свободного файла. Укажите значение 0 (по умолчанию), чтобы вернуть номер файла в диапазоне от 1 до 255 включительно. Укажите значение 1, чтобы вернуть номер файла в диапазоне от 256 до 511.

Замечания

Используйте функцию FreeFile для получения номера файла, который еще не используется.

Пример

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

Dim MyIndex, FileNumber
For MyIndex = 1 To 5    ' Loop 5 times.
    FileNumber = FreeFile    ' Get unused file
        ' number.
    Open "TEST" & MyIndex For Output As #FileNumber    ' Create file name.
    Write #FileNumber, "This is a sample."    ' Output text.
    Close #FileNumber    ' Close file.
Next MyIndex

См. также

• Функции (Visual Basic для приложений)

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.