调用IE的收藏夹

调用IE的收藏夹(4)                               szTitle, nSizeOfTitle, _
                              pidl)

     '如果路径有效并指定了标题，而且用户选择了“确定”，success 返回 1
      If success = 1 Then
     
        '删除最后的Chr$(0)
         pos = InStr(szPath, Chr$(0))
         szPath = Left(szPath, pos - 1)
        
         pos = InStr(szTitle, Chr$(0))
         szTitle = Left(szTitle, pos - 1)
     
        '在Text中显示结果
         Text1.Text = szPath
         Text2.Text = szTitle
     
         Call ProfileSaveItem("InternetShortcut", "URL", sURL, szPath)
        
        '返回创建成功的路径
         MakeFavouriteEntry = szPath
     
      End If
     
     '清空PIDL
      Call CoTaskMemFree(pidl)

   End If

End Function

Public Sub ProfileSaveItem(lpSectionName As String, _
                           lpKeyName As String, _