txt文本读取、保存的代码实现【vb.Net】

新建一个.Net程序，构建如下几个简单的控件，用于读取的button和显示读取文件路径的textbox，以及用于保存文本的button和显示保存路径的textbox：

vb.net主要通过OpenFileDialog和SaveFileDialog来实现文本的读取和保存功能，在工具箱-对话框里分别添加OpenFileDialog和SaveFileDialog两个控件如下所示：

这里需要把OpenFileDialog1控件的属性值Filename默认的“OpenFileDialog1”删掉，否则点击读取时，弹出的对话框会默认文件名为OpenFileDialog1。

然后具体到代码，先定义两个全局变量分别作为读取和保存的路径名：

    Public Shared PLPATH As String
    Public Shared PLPATH2 As String

则“1 读取”和“2 保存”button的实现代码如下：

    Private Sub cmd读取1_Click_1(sender As Object, e As EventArgs) Handles cmd读取1.Click
        OpenFileDialog1.Filter = "文本文档(*.txt)|*.txt|所有文件(*.*)|*.*"
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            PLPATH = OpenFileDialog1.FileName
            txt原路径1.Text = PLPATH '输出路径到显示框
        Else '如果按下的不是“打开”按钮，实际也只有“取消”，那么
            Exit Sub
        End If
    End Sub

    Private Sub cmd保存1_Click_1(sender As Object, e As EventArgs) Handles cmd保存1.Click
        With SaveFileDialog1
            .Title = "选择保存目录"
            .InitialDirectory = "C:/"
            .Filter = "文本文件(*.txt)|*.txt|inp文件(*.inp)|*.inp|所有文件(*.*)|*.*"
            .DefaultExt = "*.Txt"
        End With
        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
            PLPATH2 = SaveFileDialog1.FileName '返回选择的文件夹路径
            txt存路径1.Text = PLPATH2 '输出路径到显示框
        Else
            Exit Sub
        End If
    End Sub

欢迎交流！