追加文本文件1：
Private Sub appendText1(ByVal filename As String)
File.AppendAllText(filename,txtFile.Text,Encoding.Default)
End Sub
追加文本文件2：
使用File.AppendText打开文件流，使用StreamWriter写入字符串。
@H_502_18@Private Sub appendText2(ByVal filename As String)
Dim sw As StreamWriter = File.AppendText(filename)
sw.WriteLine(txtFile.Text)
sw.Close()
End Sub
追加文本文件3：
直接使用StreamWriter(string,boolean)方法，但是将第二个参数设置为True
Private Sub appendText3(ByVal filename As String)
Dim sw2 As New StreamWriter(filename,True)
sw2.WriteLine(txtFile.Text)
sw2.Close()
End Sub
由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。
学习更多vb.net知识，请参看 vb.net 教程 目录