Шаг 55 - Инструкция Reset

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

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