aggiungere a file di testo

[lella69]

ciao a tutti
ho questo script con cui vado a scrivere in un file di testo
-------------------------------------------------------
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("/mdb-database/statistiche/connessioni.txt"))

objTextFile.Write "<"
objTextFile.Write "%"
objTextFile.WriteLine "' set db_statistiche_"& anno_corrente &"=nothing "

objTextFile.Write "'strConn_statistiche_"& anno_corrente &" = "
objTextFile.Write """"
objTextFile.Write "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="
objTextFile.Write """"
objTextFile.Write " & "
objTextFile.Write "Server.MapPath("
objTextFile.Write """"
objTextFile.Write "/mdb-database/statistiche/db_"& anno_corrente &".mdb"
objTextFile.Write """"
objTextFile.WriteLine ") "

objTextFile.Write "'Set db_statistiche_"& anno_corrente &" = Server.CreateObject("
objTextFile.Write """"
objTextFile.Write "ADODB.Connection"
objTextFile.Write """"
objTextFile.WriteLine ") "

objTextFile.Write "'db_statistiche_"& anno_corrente &".Open strConn_statistiche_"& anno_corrente &""
objTextFile.Write " %"
objTextFile.WriteLine ">"

objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
-------------------------------------------------------
il problema che se torno a scrivere nel file il nuovo cancella il vecchio ma io volevo che si accodasse

[Alethesnake]

Devi usare il metodo OpenTextFile di FSO con attributo ForAppending.

[lella69]

ho fatto diverse prove ma non riesco a farlo funzionare, mi dà sempre errore, mi fai un esempio sullo script che ti ho scritto ?

[lella69]

all'ennesima prova ho fatto grazie del consiglio