Hoy, al escribir programas, tengo que usar repetidamente la escritura de archivos de texto, por lo que escribí una función de proceso, con la esperanza de que sea útil para todos.
Código:
Sub Write2File (strfile, strContent, blnappend)
'Escribe en el archivo
'Strfile Nombre del archivo (ruta), contenido escrito por strContent, ya sea para agregar blnappend
En el currículum de error siguiente
Establecer objfso = server.createObject ("scripting.filesystemObject")
Si blnappend entonces
Establecer objWriteText = objfso.opentextfile (strfile, 8, verdadero)
Demás
Establecer objwriteText = objfso.opentextfile (strfile, 2, verdadero)
Final si
objWriteText.WriteLine (strContent)
Establecer objwriteText = nada
Establecer objfso = nada
'Procesamiento tolerante a fallas
Seleccionar CASE ERC
Caso 424 Respuesta.WRITE "La ruta no se encuentra o el directorio no tiene permiso de escritura".
'Caso más Respuesta.Write Err.Description
El caso más respuesta. Escribe err
Final seleccionar
Final
Método de llamadas:
Write2File "c: /dd.ini", "dd", verdadero
o
Llame a Write2File ("c: /dd.ini", "dd", verdadero)
ilustrar:
1. Crear automáticamente archivos;
2.Catalog no se puede crear automáticamente