调用接口弹出选择文件夹的对话框的软件源码

Option Explicit
'====================================================================
'功能:调用接口弹出[选择文件夹]的对话框,返回的是选择路径
'用法:Debug.Print  BrowseForFolder(Form1)
'====================================================================
Private Type BrowseInfo
     hWndOwner As Long
     pidlRoot As Long
     pszDisplayName  As String
     lpszTitle As String
     ulFlags As Long
     lpfn As Long
     lParam As Long
     iImage As Long
End Type
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
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
Public Function BrowseForFolder(ByRef frmX As VB.Form) As String
     Dim iNull As Integer, lpIDList As Long
     Dim sPath As String, tBI As BrowseInfo
     Const BIF_RETURNONLYFSDIRS As Long = &H1
     Const MAX_PATH As Long = 260
     With tBI
         .hWndOwner = frmX.hWnd
         .lpszTitle = "请选择安装路径"
         .ulFlags = BIF_RETURNONLYFSDIRS
     End With
     lpIDList = SHBrowseForFolder(tBI)
     If lpIDList Then