VB如何写入文本文件时保留以前的内容 不胜感激

Private Sub Command1_Click()
Open App.Path & "/01.txt" For Binary As #1
Text1 = Input(LOF(1), 1)
Close #1
End Sub

Private Sub Command2_Click()
Open App.Path & "/01.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
======
窗替上填加一个文本框,text1,将multiline属性设置为true
======
Command1_Click 是读出内容
Command2_Click 是保存

将原文本内容读出，新的内容附加在读出后的内容后面，再保存。

直接用Open "x.txt" For Append As [#]filenumber打开文件续写即可。

最简单的方法是在读文件时采用Append方法，即
Open "file" for Append as #1
...
Close #1
Append方法是指向文件尾部添加的方法。
Output是覆盖的方法。