Dim openFdDialog As New FolderBrowserDialog
openFdDialog.Description = "请选择文件网络备份路径"
openFdDialog.RootFolder = Environment.SpecialFolder.Desktop
openFdDialog.ShowNewFolderButton = True
If openFdDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.TextBox1.Text = openFdDialog.SelectedPath
End If
openFdDialog.Description = "请选择文件网络备份路径"
openFdDialog.RootFolder = Environment.SpecialFolder.Desktop
openFdDialog.ShowNewFolderButton = True
If openFdDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.TextBox1.Text = openFdDialog.SelectedPath
End If
浙公网安备 33010602011771号