Dim dlg As New FolderBrowserDialog
dlg.SelectedPath="D:/测试"
If dlg.ShowDialog = DialogResult.Ok Then MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")End If