Завершает операции ввода/вывода с файлом, открытым с помощью инструкции 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 открытых файла.