Fichero

27/04/2004 - 15:54 por Carlos C. | Informe spam
Hola, necesitaria generar un .log con lo que el usuario
hace en una intranet que estoy preparando, he creado un
procedimiento (Que adjunto) para que se le pase un texto,
y se guarde en un fichero con la fecha de Hoy, pero me da
problemas con la ruta del Fichero.. he probado no se
cuantas cosas.. AYUDA! Please

Sub CrearLog(Texto)
Const ForReading=1, ForWriting=2, ForAppending=8
Const TristateUseDefault=-2,TristateTrue=-1,
TristateFalse= 0
Dim FICHERO'

FICHERO = APPL_PHYSICAL_PATH & "Amco.log"
Set FS = Server.CreateObject
("Scripting.FileSystemObject")
Set Fichero = FS.GetFile(FICHERO)
Set TS = Fichero.OpenAsTextStream(ForAppending,
TristateUseDefault)
TS.WriteLines(Now & " - " & Texto)
TS.Close
Set TS = Nothing
Set Fichero = Nothing
Set FS = Nothing
End Sub

Salu2 & Thanks

Preguntas similare

Leer las respuestas

#1 Franco Figún
27/04/2004 - 16:28 | Informe spam
Exactamente que error te da?
Si le cambias la ruta por mappath en vez de physical?

Alomejor en esta url encontrás algun ejemplo sobre eso:
http://msdn.microsoft.com/library/d...Object.asp



"Carlos C." wrote in message
news:4ec801c42c5f$2522f620$
Hola, necesitaria generar un .log con lo que el usuario
hace en una intranet que estoy preparando, he creado un
procedimiento (Que adjunto) para que se le pase un texto,
y se guarde en un fichero con la fecha de Hoy, pero me da
problemas con la ruta del Fichero.. he probado no se
cuantas cosas.. AYUDA! Please

Sub CrearLog(Texto)
Const ForReading=1, ForWriting=2, ForAppending=8
Const TristateUseDefault=-2,TristateTrue=-1,
TristateFalse= 0
Dim FICHERO'

FICHERO = APPL_PHYSICAL_PATH & "Amco.log"
Set FS = Server.CreateObject
("Scripting.FileSystemObject")
Set Fichero = FS.GetFile(FICHERO)
Set TS = Fichero.OpenAsTextStream(ForAppending,
TristateUseDefault)
TS.WriteLines(Now & " - " & Texto)
TS.Close
Set TS = Nothing
Set Fichero = Nothing
Set FS = Nothing
End Sub

Salu2 & Thanks
Respuesta Responder a este mensaje
#2 danicastillo
27/04/2004 - 17:21 | Informe spam
prueba mejor ( te incluyo para sacar el fichero con el dia actual)

ficheronombre=year(date) & "-" & month(date) & "-" & day(date)
FICHERO = server.mappath("Amco" & ficheronombre & ".log")

ojo que necesitas permiso de escritura para iusr_nomrbedetuservidor en el
directorio donde estas guardando el log


-o|o|--
-o|o| dani castillo
-o|o| http://www15.brinkster.com/danic/
-o|o| tutorial y trucos asp, vb, diseño
-o|o|--
"Carlos C." escribió en el mensaje
news:4ec801c42c5f$2522f620$
Hola, necesitaria generar un .log con lo que el usuario
hace en una intranet que estoy preparando, he creado un
procedimiento (Que adjunto) para que se le pase un texto,
y se guarde en un fichero con la fecha de Hoy, pero me da
problemas con la ruta del Fichero.. he probado no se
cuantas cosas.. AYUDA! Please

Sub CrearLog(Texto)
Const ForReading=1, ForWriting=2, ForAppending=8
Const TristateUseDefault=-2,TristateTrue=-1,
TristateFalse= 0
Dim FICHERO'

FICHERO = APPL_PHYSICAL_PATH & "Amco.log"
Set FS = Server.CreateObject
("Scripting.FileSystemObject")
Set Fichero = FS.GetFile(FICHERO)
Set TS = Fichero.OpenAsTextStream(ForAppending,
TristateUseDefault)
TS.WriteLines(Now & " - " & Texto)
TS.Close
Set TS = Nothing
Set Fichero = Nothing
Set FS = Nothing
End Sub

Salu2 & Thanks
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida