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

最新推荐文章于 2024-06-08 11:09:14 发布

lihaoing

最新推荐文章于 2024-06-08 11:09:14 发布

阅读量6.8k

点赞数

CC 4.0 BY-SA版权

文章标签： string function shell bi command

本文链接：https://blog.youkuaiyun.com/lihaoing/article/details/1782693

本文介绍如何使用VBA代码创建一个文件夹选择对话框，通过调用Windows API函数`SHBrowseForFolder`实现自定义文件夹选择界面，并解析返回路径。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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 Long

Private 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 Type

Public 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