Private Sub cmdSanSyo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSansyo.Click
Dim showdialog As New FolderBrowserDialog
showdialog.SelectedPath = "C:/kt_backup"
showdialog.ShowDialog()
imeTaihisaki.Text = showdialog.SelectedPath
End Sub
注:
FolderBrowserDialog 支持选择一个文件夹的操作
showdialog.SelectedPath = "C:/kt_backup" 设定默认文件夹路径
imeTaihisaki.Text = showdialog.SelectedPath 文本框中显示选定的文件夹的路径