Logg i FSO — webForum

SannyWMedlem sedan jan. 2003438 inlägg

Frågan20 juli 2004 19:12#1

Jag behöver lite hjälp med FSO, vad som går och vad som inte funkar.

Mitt mål är att ha en logg fil som känner av om filen är uppdaterad efter önskat tidsintervall.

Filen kommer då att skriva över sig själv varje gång som den har utfört vad den skall.

Skriva typ.

2004-07-20 och 14:43

sedan checkar den av och uppdaterar t ex en gång per timme.

Så jag uppdaterar t ex test.txt och logg.txt får datum och tidformatet.

Såg någon stans att man använde ReadFile(get text), men fick inget riktigt grepp.

Någon som har några idéer eller vet var informationen finns, har sökt runder på webeye, DevGuru och här på forumet men inte hittat svaren riktigt?

SannyWMedlem sedan jan. 2003438 inlägg

20 juli 2004 20:56#2

Har kommit en bit, tror att jag löst logg biten. Att den uppdaterar engång i timmen.

Ser ni något fel så skrik gärna till.

<%
dim filesys, text, readfile, contents
set filesys = CreateObject("Scripting.FileSystemObject")

set readfile = filesys.OpenTextFile(Server.MapPath("somefile2.txt"), 1, false)
contents = readfile.ReadLine
readfile.close

Datum = "" & contents & ""
strDate = DateAdd("h", 1, Datum)

IF strDatum >= Now() THEN

Set text = filesys.CreateTextFile(Server.MapPath("somefile2.txt"))

text.Write Now()
text.close

ELSE

Response.Write ""& contents &""

END IF
%>

/r : det funkar inte att logga per timme i allafall, får klura på problemet....

/r2 : kan ju vara en fördel att man skriver rätt,

IF strDatum >= Now() THEN skall vara:
IF strDate =< Now() THEN

Det funkar som jag vill nu.