VB.NET讀寫txt文件

來源：http://blog.sina.com.cn/s/blog_af1320c70102yfi7.html

 '寫文件

        Dim mStreamWriter As New System.IO.StreamWriter(Application.StartupPath & "\1.txt")

        mStreamWriter.WriteLine("HelloWorld1")

        mStreamWriter.Close()

        '追加

        Dim mStreamWriter2 As New System.IO.StreamWriter(Application.StartupPath & "\1.txt", True)

        mStreamWriter2.WriteLine("HelloWorld3")

        mStreamWriter2.Close()

        '讀文件

        Dim mStreamReader3 As New System.IO.StreamReader(Application.StartupPath & "\1.txt")

        Dim strLine As String

        Do While mStreamReader3.Peek > 0

            strLine = mStreamReader3.ReadLine

            MsgBox(strLine)

        Loop

        mStreamReader3.Close()