文章摘要
这篇文章介绍了如何使用Windows API和自定义函数实现文件夹选择并获取路径的功能。文章分为以下几个部分： 1. **类型声明**：定义了`BROWSEINFO`结构体，用于存储文件夹对话框的相关信息，包括窗口标题、路径长度、标题长度、 flags、回调函数和参数等。 2. **API声明**：列出了几个系统API函数： - `SHGetPathFromIDList`：从ID列表中获取路径。 - `SHBrowseForFolder`：调用文件夹对话框，并返回ID。 - `lstrcat`：字符串连接函数。 - `OleInitialize`和`OleUninitialize`：用于初始化和释放Ole32对象。 3. **自定义函数**：`GetFolder_API`函数通过调用上述API实现以下功能： - 初始化对话框，获取用户选择的文件夹。 - 通过`SHBrowseForFolder`获取文件夹ID。 - 通过`SHGetPathFromIDList`获取文件夹路径。 - 处理字符串操作，获取最终路径。 4. **使用方法**：`Test()`函数演示了如何调用`GetFolder_API`函数。 文章整体结构清晰，展示了如何利用API和自定义函数实现文件夹选择和路径获取的完整流程。
‘【类型声明】
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
‘【API声明】
Private Declare Function SHGetPathFromIDList Lib “shell32.dll” _
Alias “SHGetPathFromIDListA” (ByVal pidl As Long, _
ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib “shell32.dll” _
Alias “SHBrowseForFolderA” (lpBrowseInfo As BROWSEINFO) As Long
Private Declare Function lstrcat Lib “kernel32” _
Alias “lstrcatA” (ByVal lpString1 As String, _
ByVal lpString2 As String) As Long
Private Declare Function OleInitialize Lib “ole32.dll” _
(lp As Any) As Long
Private Declare Sub OleUninitialize Lib “ole32” ()
Private Const BIF_USENEWUI=&H40
Private Const MAX_PATH=260
‘【自定义函数】
Public Function GetFolder_API(sTitle As String, Optional vFlags As Variant) As String
Dim lpIDList As Long
Dim sBuffer As String
Dim BInfo As BROWSEINFO
If IsMissing(vFlags) Then vFlags=BIF_USENEWUI
Call OleInitialize(ByVal 0&)
With BInfo
.lpszTitle=lstrcat(sTitle, “”)
.ulFlags=vFlags
End With
lpIDList=SHBrowseForFolder(BInfo)
If (lpIDList) Then
sBuffer=Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sBuffer
sBuffer=Left(sBuffer, InStr(sBuffer, vbNullChar) – 1)
If sBuffer <> “” Then GetFolder_API=sBuffer
End If
Call OleUninitialize
End Function
‘【使用方法】
Sub Test()
MsgBox GetFolder_API(“选择文件夹”)
End Sub
© 版权声明
文章版权归作者所有，未经允许请勿转载。
