请问如何弹出一个选择文件夹路径的对话框选择路径？

Question

如题，就是像CommonDialog那种对话框，主要选择路径就可以的！
先谢谢诸位了

Answer 1

[名称]           选择文件对话框[数据来源]       zyl910[内容简介]       空[源代码内容]Private Declare Function SHBrowseForFolder _
        Lib "shell32.dll" Alias "SHBrowseForFolderA" _
        (lpBrowseInfo As BROWSEINFO) As Long
Private Declare Function SHGetPathFromIDList _
        Lib "shell32.dll" _
        (ByVal pidl As Long, _
        pszPath As String) As LongPrivate Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlage As Long
    lpfn As Long
    lparam As Long
    iImage As Long
End TypePublic Function ShowDir(MehWnd As Long, _
        DirPath As String, _
        Optional Title As String = "请选择文件夹：", _
        Optional flage As Long = &H1, _
        Optional DirID As Long) As Long
    Dim BI As BROWSEINFO
    Dim TempID As Long
    Dim TempStr As String
    
    TempStr = String$(255, Chr$(0))
    With BI
        .hOwner = MehWnd
        .pidlRoot = 0
        .lpszTitle = Title + Chr$(0)
        .ulFlage = flage
        
    End With
    
    TempID = SHBrowseForFolder(BI)
    DirID = TempID
    
    If SHGetPathFromIDList(ByVal TempID, ByVal TempStr) Then
        DirPath = Left$(TempStr, InStr(TempStr, Chr$(0)) - 1)
        ShowDir = -1
        
    Else
        ShowDir = 0
        
    End If
    
End Function
Private Sub Command1_Click()
ShowDir Me.hWnd, App.Path
End Sub
     以上代码保存于： SourceCode Explorer(源代码数据库)
           复制时间： 2005-11-11 19:32:08
           软件版本： 1.0.882
           软件作者： Shawls
             E-Mail： [email protected]
                 QQ： 9181729

Answer 2

[名称]           用API函数实现文件夹列表[数据来源]       未知[内容简介]       空[源代码内容]　　在安装软件等一些操作中，需要用户指定安装路径，现在软件的安装界面都是非常友好的，一般来说给出一个缺省路径，用户如不满意可以在文件夹列表中选择其他的路径。在WIN9X下，一般不再采用原来的先在驱动器列表框中选择驱动器再在相应的驱动器中选择相应文件夹的界面，而是采用的类似资源管理器中“所有文件夹”界面：最上层是“桌面”，然后是“我的电脑”、驱动器A、C、D...等，在一个列表框中用户可实现浏览所有驱动器及文件夹的操作。这种特色的文件列表没有现成的控件可供使用，但利用API函数可方便地实现。 　　实现方法：API函数SHBrowseForFolder可以提供这样的文件列表，它需要用到一个BROWSEINFO类型，此类型包括了列表框使用的参数，此类型的声明见下面的程序，其中这里用到的几个参数简单说明一下： 　　hwndOwner—当前窗口的句柄。 　　pidlRoot—从何根路径开始展开文件夹，缺省情况下从“桌面”开始展开。 　　lpszTitle—目录树上方的标题，用来给用户一些提示信息。 　　ulFlags—显示标志控制项：比如若赋值为BIF_BROWSEFORCOMPUTER，则只有当用户选择“我的电脑”时“确定”按钮才有效，这里我们需要的是 　　BIF_RETURNONLYFSDIRS，只有用户选择的是文件夹时“确定”按钮才有效。 　　此函数返回值是指向项目（ITEM）的一个指针，有了这个数值，再用API函数SHGetPathFromIDList可以获得具体的路径，如果用户按的是“取消”按钮，则返回值为NULL。 　　下面是一个例子，在窗体中放置一个命令按钮command1、一个文本框Text1，在窗体的声明部分API声明函数和类型及常量如下： Option ExplicitPrivate 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 Long
End TypeConst BIF_RETURNONLYFSDIRS = &H1Private pidl As LongPrivate Declare Function 
SHGetPathFromIDList _
Lib "shell32.dll" Alias 
"SHGetPathFromIDListA" _
(ByVal pidl As Long, ByVal 
pszPath As String) As LongPrivate Declare Function 
SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" _
(lpBrowseInfo As BROWSEINFO) As Long
 　　 双击命令按钮，写如下代码： Private Sub command1_Click()
Dim bi As BROWSEINFO
Dim r As Long
Dim pidl As Long
Dim path As String
Dim 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 If
End Sub 　　运行此程序，单击命令按钮，就可以看到和资源管理器中一样的“所有文件夹”列表了。 　　此程序在中文WIN95/98、中文VB6.0专业版下调试通过。
     以上代码保存于： SourceCode Explorer(源代码数据库)
           复制时间： 2005-11-11 19:32:25
           软件版本： 1.0.882
           软件作者： Shawls
             E-Mail： [email protected]
                 QQ： 9181729

Answer 3

你说的是这个?
Private Type BrowseInfo
    hWndOwner As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As Long
    ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type
Const BIF_RETURNONLYFSDIRS = 1
Const MAX_PATH = 260
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    '[email protected]
    Dim iNull As Integer, lpIDList As Long, lResult As Long
    Dim sPath As String, udtBI As BrowseInfo    With udtBI
        'Set the owner window
        .hWndOwner = Me.hWnd
        'lstrcat appends the two strings and returns the memory address
        .lpszTitle = lstrcat("C:\", "")
        'Return only if the user selected a directory
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With    'Show the 'Browse for folder' dialog
    lpIDList = SHBrowseForFolder(udtBI)
    If lpIDList Then
        sPath = String$(MAX_PATH, 0)
        'Get the path from the IDList
        SHGetPathFromIDList lpIDList, sPath
        'free the block of memory
        CoTaskMemFree lpIDList
        iNull = InStr(sPath, vbNullChar)
        If iNull Then
            sPath = Left$(sPath, iNull - 1)
        End If
    End If    MsgBox sPath
End Sub

Answer 4

倒,一个简单的API,那有那么复杂,还费那么大力气说明