Escribir en un archivo existente sin sobrescribir lo que contiene el uso de VB6?

Question

Necesito escribir en un archivo de texto para registrar un conjunto de puntajes. Cada vez que escribo en el archivo de texto, sobrescribe lo que originalmente estaba en el archivo. ¿Puede alguien decirme cómo no dejar que sobrescriba lo que está allí o cómo hacerlo para que comience a escribir en un espacio vacío?

Answer 1

Abra el archivo 'para anexar'.

Esto borrará el archivo:

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

Esto no borrará el contenido existente:

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

Answer 2

manipulación de archivos de VB6 chupa. Si tiene que leer un archivo y escribir inmediatamente los datos (que no están adjuntos) en el mismo ciclo para una conversión/algún tipo de manipulación. Abra el archivo original, manipúlelo pero escriba en un archivo "nuevo" con un nombre diferente en el mismo directorio. Al final del proceso, guarda el nuevo archivo, elimina el original y luego cambia el nombre del nuevo archivo por el anterior.

Answer 3

Uso Añadir texto para este

Normalmente añadir texto

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

guardar en ruta aplicación

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