Question

VB 文本框中数据保存问题

大家先看下面代码
Dim Lstr As String
Open "c:\路径.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Lstr
Text1.Text = Text1.Text + Chr(13) + Chr(10) + Lstr
Loop
Close #1
这段代码是在文本框中读取c:\路径.txt里的内容。如果我设置多个读取按钮他们的内容都会在text1中接着前面的内容继续显示，
保存TXT中的内容 代码如下
open "c:\abc.txt" for output as #1
print #1,text1.text
close #1
在文本框中输入内容，他就会保存在c:\abc.txt中。如果我再次输入再点保存他就会把第一次保存的内容覆盖了。c:\abc.txt里只保留最后一次的内容。
我现在的要求是 在保存文本框中的内容时，多次保存，它都能在c:\abc.txt中 换行保存。例如 第一次输入 abc,保存后 第二次输入 中国保存 依次类推 那么保存后， 打开c:\abc.txt中的内容应是：
abc
中国
~~~
~~~
请问这段代码应该怎么写。

Answer 1

用Append替代output
open "c:\abc.txt" for Append as #1
print #1,text1.text
close #1