版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

 

由于文本的追加也属于写文件的范畴，在这里将文本文件内容追加代码写于下：

 

 

 

追加文本文件1：

 

使用 File.AppendAllText（参数1：文件全路径，参数2：要添加的文本内容字符串，参数3：编码）方法

 

Private Sub appendText1(ByVal filename As String)

        File.AppendAllText(filename , txtFile.Text, Encoding.Default)

End Sub

 

 

追加文本文件2：

 

使用File.AppendText打开文件流，使用StreamWriter写入字符串。

 

Private Sub appendText2(ByVal filename As String)

        Dim sw As StreamWriter = File.AppendText(filename)

        sw.WriteLine(txtFile.Text)

        sw.Close()

End Sub

注意：此方法不能设置文本编码，只能将 UTF-8 编码文本追加到现有文件或新文件

 

 

 

追加文本文件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

注意：此方法不能设置文本编码，只能将 UTF-8 编码文本追加到现有文件或新文件

 

 

 

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

 

学习更多vb.net知识，请参看 vb.net 教程 目录

 

 

————————————————

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/uruseibest/article/details/75209144