怎么把text中的信息保存到txt文本中的最后一行 VB

Question

怎么把text中的信息保存到txt文本中的最后一行 VB
代码如下！因该怎么添加！我需要把text1的信息保存到1.ini的最后一行中，
text = Text1.text
Dim fname As String
fname = text
Open App.Path & "\data\" & fname & ".txt" For Output As #1
Print #1, Text2.text
Dim timestr As String
Close #1

Answer 1

你是说总把textbox内的内容保存在txt文档的最后一行？OK这个问题可以用Append解决
该文件函数是向指定输出文件写入数据，并且加载在文件内已有数据的尾后。若文件内不存在数据，则从首位开始录入
下面举例：
Private Sub Command1_Click()
var=Text1.Text
Open "E:\123.Txt" For Append As #1
print #1,var
Close #1
End Sub
多次在Text1内输入，并点击Command1这样你打开E盘下123.txt内看看自己的录入情况是否使自己想要的。

Answer 2

用追加[Append]的方式:
Open App.Path & "\data\" & fname & ".txt" For Append As #1
.....
close #1