使用VB6写入现有文件而不覆盖其中的内容？

Question

我需要写一个文本文件来记录一组分数。每次我写入文本文件时，它都会覆盖原来在文件中的内容。有人能告诉我如何不让它覆盖那里有什么东西或如何让它开始在一个空的空间写作？

Answer 1

打开文件'追加'。

这将删除文件：

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

这不会删除现有内容：

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

Answer 2

VB6的文件操作很烂。如果您必须读取文件并立即将数据写出（不附加）在同一个循环中进行转换/某种操作。打开原始文件，对其进行操作，但在同一目录中写入具有不同名称的“新”文件。在过程结束时，您保存新文件，删除原始文件，然后将新文件重命名为旧文件。

Answer 3

使用文本追加该

通常追加文本

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

保存到应用程序路径

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