VB2008写文本

Public Class Form1

    Dim fileName As String

    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click

        '选择一个文本文件
        OpenFileDialog1.ShowDialog()
        fileName = OpenFileDialog1.FileName

        '将文本文件读入文本框
        TextBox1.Text = _
            My.Computer.FileSystem.ReadAllText(fileName, _
            System.Text.Encoding.GetEncoding("GB2312"))
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button2.Click

        My.Computer.FileSystem.WriteAllText(fileName, TextBox1.Text, False, _
            System.Text.Encoding.GetEncoding("GB2312"))
        MsgBox("保存成功")
    End Sub
End Class