[vbs]scrittura su file esterno (txt)

[Aki]

Ciao raga, ho questo codice:

dim fs, f 
set fs = Server.CreateObject("Scripting.FileSystemObject") 
set f = fs.CreateTextFile("c:\log.txt",true) 
f.WriteLine("IP: " & request.ServerVariables("REMOTE_ADDR") & " | Data: " & Now())
f.Close
set f=nothing
set fs=nothing

che dovrebbe scrivere su un file *.txt, però ogni volta che ci va a scrivere cancella la linea precedente, e io vorrei che aggiungesse le linee anzichè sovrascriverle, come posso fare?

[Gioba66]

se il file esiste già devi usare


Const ForAppending = 8
set f = fs.OpenTextFile("c:\log.txt",ForAppending)

[Aki]

Originariamente inviato da Gioba66
se il file esiste già devi usare


Const ForAppending = 8
set f = fs.OpenTextFile("c:\log.txt",ForAppending)

quello lo faccio con

...
set f = fs.CreateTextFile("c:\log.txt",true)
...

io vorrei che aggiungesse le linee anzichè sovrascriverle

[Gioba66]

leggi bene tutto, akino...

[Aki]

Originariamente inviato da Gioba66
leggi bene tutto, akino...

fatto,

e quindi???...

[Gioba66]

noti nulla di diverso?
eppure sono 2 righe solamente

[Aki]

Originariamente inviato da Gioba66
noti nulla di diverso?
eppure sono 2 righe solamente

sì che noto, c'è una costante e l'opentextfile anzichè createtextfile, però non mi va ancora, non riesco ad 'appendere' altre righe senza sovrascrivere la precedente

[Gioba66]

non è possibile...
posta tutto il codice che stai usando e che non funziona

[Aki]

Originariamente inviato da Gioba66
non è possibile...
posta tutto il codice che stai usando e che non funziona

allora:
questo mi funziona ma sovrascrive eventuali linee nel file .txt:

<% 
dim fs, f 
set fs = Server.CreateObject("Scripting.FileSystemObject") 
set f = fs.CreateTextFile("c:\log.txt", true) 
f.WriteLine("IP: " & request.ServerVariables("REMOTE_ADDR") & " | Data: " & Now())
f.Close
set f=nothing
set fs=nothing
%>

1) così come andrebbe modificato
2) l'istruzione che mi hai suggerito prima l'ho usata così

<% 
Const ForAppending = 8 
dim fs, f 
set fs = Server.CreateObject("Scripting.FileSystemObject") 
set f = fs.OpenTextFile("c:\log.txt", ForAppending) 
f.WriteLine("IP: " & request.ServerVariables("REMOTE_ADDR") & " | Data: " & Now())
f.Close
set f=nothing
set fs=nothing
%>

usata così va bene, oppure come devo usarla?

[Aki]

up