如何把TEXTBOX的内容追加到TXT里面

Question

如何把TEXTBOX的内容追加到TXT里面
例如....我想把 ABC追加到内容文件为DEF的文本文件里...
让其最后内容为ABCDEF..这怎么写?
是把内容写在最前面...不是写在最后面...

Answer 1

Private Sub Command1_Click()
Open "d:\m.txt" For Binary As #1
temp = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1

temp = Text1.Text & temp

Open "d:\m.txt" For Output As #1
Print #1, temp
Close #1
End Sub

Answer 2

open "c:\1.txt" for append as #1
print #1,text1.text
close #1