Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pid1 As Long, ByVal pszPath As String) As LongPrivate Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As LongPrivate Type BROWSEINFO howner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lparam As Long iImage As LongEnd TypeConst BIF_RETURNONLYFSDIRS = &H1Private pid1 As Long Private Sub Command1_Click()Dim bi As BROWSEINFODim r As LongDim pidl As LongDim path As StringDim pos As Integer'句柄bi.howner = Me.hWnd'展开根目录bi.pidlRoot = 0&'列表框标题bi.lpszTitle = "请选择软件安装路径:"'规定只能选择文件夹，其他无效bi.ulFlags = BIF_RETURNONLYFSDIRS'调用API函数显示列表框pidl = SHBrowseForFolder(bi)'利用API函数获取返回的路径path = Space$(512)r = SHGetPathFromIDList(ByVal pidl&, ByVal path)If r Then pos = InStr(path, Chr$(0)) Text1 = Left(path, pos - 1)Else Text1 = ""End IfEnd Sub