VB6实现类似Excel打开浏览文件夹对话框，WindowsAPICodePack及Application.FileDialog

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