Écrire dans un fichier existant sans écraser ce qu'il contient à l'aide de VB6?

Question

Je dois écrire dans un fichier texte pour enregistrer un ensemble de partitions. Chaque fois que j'écris dans le fichier texte, il écrase ce qui était à l'origine dans le fichier. Quelqu'un peut-il me dire comment ne pas le laisser écraser ce qui est là ou comment le faire commencer à écrire dans un espace vide?

Answer 1

Ouvrez le fichier 'pour append'.

Cela effacera le fichier:

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

Cela n'effacera le contenu existant:

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

Answer 2

la manipulation de fichiers VB6 suce. Si vous devez lire un fichier et écrire immédiatement les données (qui ne sont pas ajoutées) dans la même boucle pour une conversion/une sorte de manipulation. Ouvrez le fichier original, manipulez-le mais écrivez dans un "nouveau" fichier avec un nom différent dans le même répertoire. À la fin du processus, vous enregistrez le nouveau fichier, supprimez l'original et renommez le nouveau fichier en ancien.

Answer 3

Utilisez le texte append pour cette

Normalement, ajouter du texte

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

Enregistrement de chemin d'application

'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)