Para aquellos que no usan FSO bajo ASP, use el objeto adodb.stream para guardar y leer archivos para evitar máquinas que tienen algunos hosts virtuales que no admiten FSO. '************************************
'Leer el archivo
'************************************
Función LoadFromFile (archivo ByVal)
Dim objStream
Texto R atenuado
RTexto = Matriz(0, )
Establecer objStream = Server.CreateObject(ADODB.Stream)
Con objStream
.Tipo = 2
.Modo = 3
.Abierto
.Juego de caracteres = utf-8
.Posición = objStream.Tamaño
En caso de error Continuar siguiente
.LoadFromFile Server.MapPath(Archivo)
Si se equivoca entonces
RText = Matriz(Err.Número, Err.Descripción)
LoadFromFile = RTexto
Err.Borrar
Función de salida
Terminar si
RTexto = Matriz(0, .ReadText)
.Cerca
Terminar con
LoadFromFile = RTexto
Establecer objStream = Nada
Función final
'************************************
'Guardar archivo
'************************************
Función SaveToFile(ByVal strBody, ByVal File)
Dim objStream
Texto R atenuado
RTexto = Matriz(0, )
Establecer objStream = Server.CreateObject(ADODB.Stream)
Con objStream
.Tipo = 2
.Abierto
.Juego de caracteres = utf-8
.Posición = objStream.Tamaño
.WriteText = strCuerpo
En caso de error Continuar siguiente
.SaveToFile Server.MapPath(Archivo), 2
Si se equivoca entonces
RText = Matriz(Err.Número, Err.Descripción)
Guardar en archivo = RTexto
Err.Borrar
Función de salida
Terminar si
.Cerca
Terminar con
RText = Array(0, ¡el archivo se guardó correctamente!)
Guardar en archivo = RTexto
Establecer objStream = Nada
Función final