Question

VB高手看！ 如何调用“选择文件夹”的对话框 ，如图所示

网上别的网友给的代码，调出来后没有“新建文件夹”对话框！！！
http://zhidao.baidu.com/question/462670396.html?quesup2

Answer 1

Set sh = CreateObject("Shell.Application")
Set fd = sh.BrowseForFolder(Me.hWnd, "选择您想将“VeryCD”复制到的地方，然后单击“复制”按钮", 0)
'Me.hWnd是“选择文件夹”对话框的父窗口句柄，不关闭对话框不能返回父窗口。改为0没这个效果。
'第三个参数0改为512不显示“新建文件夹”按钮
If TypeName(fd) = "Folder3" Then MsgBox "选择的文件夹是" & fd.Self.Path

Answer 2

使用工具箱上的三个控件,试试:
DriveListBox 控件
DirListBox 控件
FileListBox 控件

追问

不要自己做这个窗口，就想调系统自带的