Biblioteca de Clases,Funciones y Sub-rutinas.

[DanielImago]

Para manejar archivos:

Function LeerArchivo(Archivo_Nombre)
If ExisteArchivo(Archivo_Nombre) Then
Set fs_LeerArchivo = Server.CreateObject("Scripting.FileSystemObject")
Set Arch = fs_LeerArchivo.OpenTextFile(Server.MapPath(Archivo _Nombre), 1)
LeerArchivo = Arch.ReadAll
Set Arch = Nothing
Set fs_LeerArchivo = Nothing
Else
ErrorLog "LeerArchivo", "No existe el archivo", Archivo_Nombre
End IF
End Function

Sub GuardarArchivo(Archivo_Nombre, strTexto)
On Error Resume Next

Response.Write "<!--1:" & Err.Description & " -->"
Set fs_GuardarArchivo = Server.CreateObject("Scripting.FileSystemObject")
Response.Write "<!--2:" & Err.Description & " -->"
Set Arch = fs_GuardarArchivo.CreateTextFile(Server.MapPath(Ar chivo_Nombre), True)
Response.Write "<!--3:" & Err.Description & " -->"
Arch.WriteLine strTexto
Response.Write "<!--4:" & Err.Description & " -->"
Arch.Close
Response.Write "<!--5:" & Err.Description & " -->"
Set Arch = Nothing
Response.Write "<!--6:" & Err.Description & " -->"
Set fs_GuardarArchivo = Nothing
Response.Write "<!--7:" & Err.Description & " -->"
End sub

Function ExisteArchivo(Archivo_Nombre)
On Error Resume Next
ExisteArchivo = False

If Archivo_Nombre <> "" Then
Set fs_ExisteArchivo = Server.CreateObject("Scripting.FileSystemObject")
ExisteArchivo = fs_ExisteArchivo.FileExists(Server.MapPath(Archivo _Nombre))
Set fs_ExisteArchivo = Nothing
End IF
End Function