Private Sub Command1_Click()
    Set sh = CreateObject("Shell.Application")
    Set fd = sh.BrowseForFolder(Me.hWnd, "这里填写对话框的标题", 0)
    If TypeName(fd) = "Folder3" Then MsgBox "您选择的文件夹路径为：" & fd.Self.Path, vbOKOnly, "提示"
    'Me.hWnd是“选择文件夹”对话框的父窗口句柄，不关闭对话框不能返回父窗口，改为0没这个效果。
    '第三个参数0改为512不显示“新建文件夹”按钮。
    '代码出处：http://zhidao.baidu.com/link?url=ckGza9Ko6UW4CbxAHhoaasXQAEq2KxaysiWwd0Jv5yWrteS-Ofy2t17L1sU5ufqHV8AN6QUmV8Qec0i3xnYOCq
End Sub