Шаг 8 - Инструкция Close

Завершает операции ввода/вывода с файлом, открытым с помощью инструкции Open.

Close [списокНомеровФайлов]

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

[[#]номерФайла] [, [#]номерФайла] . . .

Замечания
Если аргумент списокНомеровФайлов опущен, закрываются все активные файлы, открытые с помощью инструкции Open.
При закрытии файла, открытого в режиме Output или Append, в него добавляется содержимое последнего буфера вывода. Все буферы, связанные с закрытым файлом, освобождаются.
Инструкция Close разрывает связь между файлом и соответствовавшим ему номером файла.

Пример
В данном примере инструкция Close используется для закрытия трех файлов, открытых в режиме Output.

Dim I, FileName
For I = 1 To 3					' Цикл выполняется 3 раза.
	FileName = "TEST" & I			' Создает имя файла.
	Open FileName For Output As #I		' Открывает файл.
	Print #I, "Пример."			' Записывает строку в файл.
Next I
Close						' Закрывает все 3 открытых файла.

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.