路径选择对话框怎么调用

[dofly]

想请教一下怎么把那个路径选择的对话框怎么调用出来。
不是 Open,Save 对话框，
谢谢了.

[3tzjq]

Dim fbdPath As New FolderBrowserDialog
With fbdPath
.Description = Description '说明文本
.RootFolder = Environment.SpecialFolder.Desktop
.SelectedPath = txtObject.Text

.ShowNewFolderButton = True '显示新建文件夹按钮

If .ShowDialog = DialogResult.OK Then

txtObject.Text = .SelectedPath

End If

End With

也可以从工具箱拖到窗体中

[landlordh]

同意楼上，不知你要什么效果

[echoxue]

up