Scrive su un file esistente senza sovrascrivere ciò che è contenuto usando VB6?

Question

Ho bisogno di scrivere su un file di testo per registrare una serie di punteggi. Ogni volta che scrivo sul file di testo, sovrascrive quello che era originariamente nel file. Qualcuno può dirmi come non lasciare che sovrascriva quello che c'è o come farlo iniziare a scrivere in uno spazio vuoto?

Answer 1

Aprire il file 'per aggiungere'.

questo cancellerà il file:

Open "C:\path\to\file.txt" For Output As FILE 

Questo non cancella il contenuto esistente:

Open "C:\path\to\file.txt" For Append As FILE 

Answer 2

manipolazione di file di VB6 fa schifo. Se devi leggere un file e scrivere immediatamente i dati (che non è aggiunto) nello stesso ciclo per una conversione/una sorta di manipolazione. Aprire il file originale, manipolarlo ma scrivere in un "nuovo" file con un nome diverso nella stessa directory. Alla fine del processo, si salva il nuovo file, si elimina l'originale e quindi si rinomina il nuovo file nel vecchio.

Answer 3

Usa testo accodare per questo

Normalmente aggiungere testo

'Start append text to file 
    FileNum = FreeFile 
    Open "D:\45.txt" For Append As FileNum 
    Print #FileNum, Text1.Text 
    Close FileNum 
'End 

Salvataggio al percorso app

'Start append text to file 
    FileNum = FreeFile 
    Open App.Path & "\45.txt" For Append As FileNum 
    Print #FileNum, Text1.Text 
    Close FileNum 
'End 

Answer 4

Dim path as String = "S:\My Documents\New folder (2)" 
Dim filename as string = "\test.txt" 

'To write into a file that will erase text: 
FileOpen(1, path & filename, OpenMode.Output) 

'To write into a file that will add to text: 
FileOpen(1, path & filename, OpenMode.Append)