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

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

VB6默认文件夹对话框是以下样式

这种浏览文件夹对话框的缺点是，不能直接修改部分路径，不能直接粘贴路径访问，不能预览。

使用这个第三方库filedlg.tlb，可以解决以上问题，支持选择文件夹、文件类型。

下载这个filedlg.tlb文件

放到一个比较短的文件夹路径中

打开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