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

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida