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
 

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

Preguntas similares