[VB6] Scrivere informazioni di log in un file XML

[ZiBedeo]

Salve a tutti,

devo scrivre un log di attività su file xml.
premetto che usa poco vb6 e i file xml non mi sono del tutto familiari

cmq avevo pensato di fare una cosa simile ..
ogni volta che si generava un errore :

--------------------------------------------------------
strLog = strLog & "<Log>" & vbCrLf
strLog = strLog & "<Data=" & FormatDateTime(Now(), 2) & "'>" & vbCrLf
strLog = strLog & "<Errore='" & Erroren & "'>" & vbCrLf
strLog = strLog & "</Log>" & vbCrLf

Open App.Path & "\Log.xml" For Binary As #1
Put #1, 1, strLog
Close #1
----------------------------------------------------------

voi che dite ?
come posso fare per far scrive il nuovo log senza cancellare quello precedente ?

[gibra]

A me quello che stai scrivendo non sembra proprio un file XML, ma un normale file di testo.

Devi aver ben chiaro quello che devi/vuoi fare ...
Dopo di chè ne riparliamo.

Ciao

[alka]

Originariamente inviato da gibra
A me quello che stai scrivendo non sembra proprio un file XML, ma un normale file di testo.

Un file XML, infatti, è anche un normale file di testo.

[alka]

Originariamente inviato da ZiBedeo
come posso fare per far scrive il nuovo log senza cancellare quello precedente ?

Puoi usare i metodi dell'oggetto FileSystemObject.

Ti riporto un esempio di codice a puro titolo esemplificativo:

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim f, fs
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\temp\log.xml", ForAppending, -2)
' ...
' scrittura del testo
' ...
f.Close

Ciao!