[常用API]一个不含在通用对话框控件中的常用对话框

选择文件夹对话框，在安装程序和软件设置中经常用到，但是神奇的是，如此常用的对话框，却不包含在VB的通用对话框控件中，这也导致了很多人手工设计这个对话框。今天在翻看别人程序的时候，发现他们用到了这个API，于是就写出来分享。
此API在Vista下也测试成功，所以可以正常使用。
API如下：
程序代码 程序代码
Private Declare Function SHBrowseForFolder Lib “shell32.dll” Alias “SHBrowseForFolderA” (lpBrowseInfo As BROWSEINFO) As Long
Private Declare Function SHGetPathFromIDList Lib “shell32.dll” Alias “SHGetPathFromIDListA” (ByVal pidl As Long, ByVal pszPath As String) As Long
相关的测试程序代码，贴在附件中。
下载文件