Закрывает все файлы, открытые с помощью инструкции Open.
Reset
Замечания
Инструкция Reset закрывает все активные файлы, открытые с помощью инструкции Open, и записывает содержимое всех буферов файлов на диск.
Пример
В данном примере инструкция Reset используется для закрытия всех открытых файлов и записи содержимого всех буферов файлов на диск. Обратите внимание, что переменная FileNumber типа Variant используется одновременно как строка и число.
Dim FileNumber For FileNumber = 1 To 5 ' Выполняет цикл 5 раз. ' Открывает файл для записи. FileNumber включается в имя файла как ' строка и одновременно является числовым счетчиком цикла. Open "TEST" & FileNumber For Output As #FileNumber Write #FileNumber, "Всем Привет" ' Записывает данные в файл. Next FileNumber Reset ' Закрывает файлы и записывает содержимое ' буферов на диск.