VB6实现类似Excel打开浏览文件夹对话框，WindowsAPICodePack及Application.FileDialog(3)
VB6默认文件夹对话框是以下样式
这种浏览文件夹对话框的缺点是，不能直接修改部分路径，不能直接粘贴路径访问，不能预览。
使用这个第三方库filedlg.tlb，可以解决以上问题，支持选择文件夹、文件类型。
下载这个filedlg.tlb文件
http://u3v.cn/5MPCGw
放到一个比较短的文件夹路径中
打开VB6—自行新建项目—工程—引用
点击浏览
文件类型拉下，选择所有文件。
找到filedlg.tlb选中，点击打开
确保 Common File Dialog 0.0 Type Library勾选状态，确定
单选文件夹代码
Dim fod As New FileOpenDialog
Dim si As IShellItem
Dim dlgr As DlgResult
Dim pathl&, paths$
fod.Options = FOS_PICKFOLDERS Or FOS_FILEMUSTEXIST
dlgr = fod.Show(Me.hWnd)
Select Case dlgr
Case dlgsOkay
Set si = fod.Result
pathl = si.DisplayName(SIGDN_FILESYSPATH)
paths = SysAllocString(pathl)
CoTaskMemFree pathl
Print "选择了："; paths
Case dlgeCancelled
Print "选择了取消！"
Case Else
Print "错误："; Hex$(dlgr)
End Select