Private Sub appendText1(ByVal filename As String)
        File.AppendAllText(filename,txtFile.Text,Encoding.Default)
End Sub

Private Sub appendText2(ByVal filename As String)
        Dim sw As StreamWriter = File.AppendText(filename)
        sw.WriteLine(txtFile.Text)
        sw.Close()
End Sub

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 教程 目录

• 上一篇：vb.net 教程 4-8 文本文件读写 4下一篇：VB 程序检测按键