通用对话框

 

Dim openFileDialog_ScriptFile As New System.Windows.Forms.OpenFileDialog  '通用对话框，选择文件
            If openFileDialog_ScriptFile.ShowDialog() = DialogResult.OK Then     'DialogResult.OK 确定
                TxtFilePath.Text = openFileDialog_ScriptFile.FileName
            End If
     
            Dim folderBrowserDialog_Path As New System.Windows.Forms.FolderBrowserDialog  '通用对话框，选择文件夹
            If folderBrowserDialog_Path.ShowDialog() = DialogResult.OK Then     'DialogResult.OK 确定
                TxtFilePath.Text = folderBrowserDialog_Path.SelectedPath
            End If