Сегодня, когда я пишу программы, я должен неоднократно использовать письменные текстовые файлы, поэтому я написал функцию процесса, надеясь, что она будет полезна для всех.
Код:
Sub write2file (strfile, strcontent, blnappend)
'Напишите в файл
'strfile file name (path), контент, записанный Strcontent, будь то добавление Blnappend
При ошибке резюме следующим
Установить objfso = server.createObject ("scripting.filesystemobject")
Если blnappend тогда
Установить objwriteText = objfso.opentextfile (strfile, 8, true)
Еще
Установить objwriteText = objfso.opentextfile (strfile, 2, true)
Конец, если
objwritetext.writeline (strcontent)
Установить objWriteText = ничего
Установить objfso = ничего
'Определенная обработка
Выберите Case err
Случай 424 Ответ. Написайте «Путь не найден или в каталоге нет разрешения на запись».
'Case else response.write err.description
Дело и ответ response.write err
Конец выбора
Конец суб
Метод вызова:
Write2file "c: /dd.ini", "dd", true
или
Вызовать write2file ("c: /dd.ini", "dd", true)
иллюстрировать:
1. Автоматическое создание файлов;
2. Каталог не может быть создан автоматически