编程论坛 » VB6论坛 » 求各位朋友们，有点问题请教

hanyu19880930 发表于 2008-5-31 12:27

求各位朋友们，有点问题请教

怎么样编写，浏览目录

flyue 发表于 2008-5-31 13:43

用API函数"SHBrowseForFolder "

flyue 发表于 2008-5-31 13:43

Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
"SHGetPathFromIDListA" (ByVal pIdl As Long, ByVal pszPath As String) As Long



Private Type BrowseInfo
hwndOwner As Long
piDLroot As Long
pszdisplayName As String
lpsztitle As String
ulFlags As Long
lpfncallback As Long
lParam As Long
iImage As Long
End Type

xlin1033xl 发表于 2008-5-31 14:02

不错，学习

flyue 发表于 2008-5-31 14:08

以“SH”开头的函数还有不少，比如用来清空回收站，添加快捷方式等

hanyu19880930 发表于 2008-5-31 19:00

谢谢你们！

查看完整版本: 求各位朋友们，有点问题请教