Функция FreeFile

Статья
11/05/2008

Обновлен: Ноябрь 2007

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

Public Function FreeFile() As Integer

Исключения

Тип исключения	Номер ошибки	Условие
IOException	67	Используется больше 255 файлов.

См. столбец "Номер ошибки", если выполняется обновление приложений Visual Basic версии 6.0, в которых используется неструктурированная обработка ошибок. (Можно сравнить номер ошибки с Свойство Number (объект Err).) Однако по возможности следует заменить такую систему управления ошибками на Обзор структурной обработки исключений в Visual Basic.

Заметки

Функция FreeFile используется для получения неиспользуемого номера файла.

Пример

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

Dim count As Integer
Dim fileNumber As Integer
For count = 1 To 5   
   fileNumber = FreeFile()
   FileOpen(fileNumber, "TEST" & count & ".TXT", OpenMode.Output)
   PrintLine(fileNumber, "This is a sample.")
   FileClose(fileNumber)
Next

Примечания для разработчиков приложений Smart Device

Эта функция не поддерживается.

Требования

Пространство имен: Microsoft.VisualBasic

**Модуль:**FileSystem

**Сборка:**Visual Basic (библиотека времени выполнения, в Microsoft.VisualBasic.dll)

См. также

Ссылки

Функция FileOpen

IOException

Другие ресурсы

Запись в файлы в Visual Basic

Поделиться через