如何取得系统收藏夹目录？
如何取得系统收藏夹的目录呢？是否有个API？
希望帮忙，呵呵
问题点数：20、回复次数：3Top
1 楼northwolves（狼行天下）回复于 2005-11-04 19:55:08 得分 0
Private Const CSIDL_FAVORITES = &H6 '收藏文件夹
Private Type SHITEMID
cb As Long
abID As Byte
End Type
Private Type ITEMIDLIST
mkid As SHITEMID
End Type
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Function GETFAVORITES() As String
Dim IDL As ITEMIDLIST
SHGetSpecialFolderLocation 100, CSIDL_FAVORITES, IDL
GETFAVORITES = String(512, Chr(0))
SHGetPathFromIDList ByVal IDL.mkid.cb, ByVal GETFAVORITES
GETFAVORITES = Split(GETFAVORITES, Chr(0))(0)
End Function
Private Sub Command1_Click()
MsgBox GETFAVORITES, vbOKCancel, "系统收藏夹的目录"
End Sub
Top
2 楼northwolves（狼行天下）回复于 2005-11-04 23:52:00 得分 0
来一个简单的:
Environ("UserProfile") & "\Favorites"Top
3 楼hhjjhjhj（大头)(http://office.9zp.com）回复于 2005-11-05 15:41:19 得分 0
MsgBox CreateObject("shell.application").NameSpace(&H6).Self.PathTop
