| |
Функция FreeFile |
|
| |
Функция FreeFile | | Синтаксис FreeFile[(rangenumber)] | Функция используется для возвращения свободного номера файла, который можно использовать при открытии файла инструкцией Open. Возвращает значение типа Integer в диапазоне от 1 до 511. | Параметры Наименование | Описание | RangeNumber | Необязательный. Число типа Variant, указывающее диапазон, из которого возвращается следующий свободный номер файла. Значение 0 (используется по умолчанию) задает возвращение номера файла из диапазона 1 – 255 включительно. Значение 1 задает возвращение номера файла из диапазона 256 – 511 |
| Замечания | Пример использования 'используем функцию FreeFile
'для определения следующего свободного номера файла
'в цикле последовательно открываются для вывода данных
'пять файлов, в каждый из которых записываются
некоторые данные
Dim MyIndex, FileNumber
'выполняем цикл 5 раз
For MyIndex = 1 To 5
'определяем свободный номер файла
FileNumber = FreeFile
'создаем файл
Open "vbnet" & MyIndex
& ".txt" For Output As #FileNumber
' выводим текст
Write #FileNumber, "VBNet - сайт о Visual Basic!"
'закрываем файл
Close #FileNumber
Next MyIndex | Дополнительная информация Категория: Работа с файловой системой Еще функции: CurDir, Dir, EOF, FileAttr, FileDateTime, FileLen, FreeFile, GetAttr, Input, Loc, LOF, Seek |
|
|
| |
|
|
|
|
Справочник по Visual Basic