Hoje, ao escrever programas, tenho que usar repetidamente os arquivos de texto, então escrevi uma função de processo, esperando que seja útil para todos.
Código:
Sub write2file (strfile, strcontent, blnappend)
'Escreva no arquivo
'Nome do arquivo strfile (caminho), conteúdo escrito por strContent, seja para anexar blnappend
Em erro de erro em seguida
Set objfso = server.createObject ("scripting.filesystemoBject")
Se Blnappend, então
Definir objWritEText = objfso.opentExtfile (strfile, 8, verdadeiro)
Outro
Definir objWritEText = objfso.opentExtfile (strfile, 2, verdadeiro)
Final se
objwriteText.WriteLine (strContent)
Definir objWritEText = nada
Defina objfso = nada
'Processamento tolerante a falhas
Selecione o caso err
Caso 424 Response.Write "O caminho não é encontrado ou o diretório não possui permissão de gravação".
'Case else Response.Write Err.Description
Caso mais resposta.write err
Final Selecione
Final sub
Método de chamada:
Write2file "c: /dd.ini", "dd", verdadeiro
ou
Call Write2File ("C: /dd.ini", "dd", verdadeiro)
ilustrar:
1. Crie arquivos automaticamente;
2.Catalog não pode ser criado automaticamente