使用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)