调用IE的收藏夹

调用IE的收藏夹(1)

调用IE的收藏夹（系统需要IE4以上版本）

Internet EXPlorer 库--shdocvw.dll包含了许多可以操纵IE收藏夹的API。其中的两个API是调用IE的“添加到收藏夹”和“整理收藏夹”对话框。下面的示例程序就是如何使用这两个对话框

。

“添加到收藏夹”的Dialog很像Windows的通用对话框中的SaveAs Dialog，它自身没有任何机能（不能创建或保存一个文件）。然而他却提供了一种机制，当用户创建并保存一个

internet的快捷方式时，可以让开发人员能够得到需要的“收藏夹”中的信息。因为它会接受到一个pidl参数，当调用SHGetSpecialFolderLocation函数时指定了CSIDL_FAVORITES，

就会返回用户“收藏夹”的pidl描述。再把它用作API中的一个成员，我们想要的“添加到收藏夹”对话框就会出现了。

“整理收藏夹”对话框可以提供我们创建创建文件夹、重命名文件夹和删除文件夹等功能。

代码：
新建标准EXE工程，加入3个Button（Command1-Command3），3个Text文本框（Text1-Text3）............

Option Explicit
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'40Star收藏并翻译
'联系地址：40Star@163.com
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Const MAX_PATH As Long = 260
Private Const ERROR_SUCCESS As Long = 0
Private Const S_OK As Long = 0
Private Const S_FALSE As Long = 1
Private Const SHGFP_TYPE_CURRENT As Long = &H0
Private Const SHGFP_TYPE_DEFAULT As Long = &H1
Const CSIDL_FAVORITES As Long = &H6

Private Declare Function DoAddToFavDlg Lib "shdocvw" _
  (ByVal hWnd As Long, _
   ByVal szPath As String, _
   ByVal nSizeOfPath As Long, _
   ByVal szTitle As String, _
   ByVal nSizeOfTitle As Long, _
   ByVal pidl As Long) As Long
  
Private Declare Function DoOrganizeFavDlg Lib "shdocvw" _
  (ByVal hWnd As Long, _
   ByVal lpszRootFolder As String) As Long

Private Declare Function SHGetFolderPath Lib "shfolder" _
   Alias "SHGetFolderPathA" _
  (ByVal hwndOwner As Long, _