PDA

Visualizza la versione completa : accodare testo in un file di testo


saxdem
17-05-2002, 11:50
Salve,
con il codice:

******************************************
Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim MyFile As New FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testo.txt", True)
MyFile.AppendFile ("testo inserito")
MyFile.Close
End Sub
******************************************

creo un file di testo, ma quando rieseguo il codice in un secondo momento, mi sovrascrive il testo inserito. Come posso mantenere quello che gi scritto e accodare il nuovo testo?
Vi ringrazio in anticipo.

biifu
17-05-2002, 12:10
Set MyFile = fso.CreateTextFile("c:\testo.txt", True)


questa istruzione crea un nuovo file, true significa sovrascrivi.
se metti false e il file esiste va in errore
vedi qui: http://msdn.microsoft.com/library/en-us/script56/html/jsoriFileSystemObjectMethods.asp?

i metodi

dovrebbe essere opentextfile:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jsmthopentextfile.asp

zoran_mandic
17-05-2002, 12:20
Ha ragione biifu
in questo modo distruggi e crei il file, quindi il contenuto sempre l'ultimo che hai creato.
Dovresti verificare se esiste gia il file, in tal caso lo apri in scrittura e appendi il contenuto, in caso non esistesse, crea il file e inserisci il contenuto.

se guardi la guida MSDN trovi tutte le opzioni per quel che riguarda FileSystemObject, oppure il sito citato prima da biifu.
Ciao

Loading