在文件后添加数据

Private Sub Command1_Click()
Open "C:\2.txt" For Append As #1
Write #1, Chr(13) & Chr(10) & "Hello World"
Close #1

End Sub