devxlogo

AddToIEFavorites – Add a URL to the IE’s favorites

AddToIEFavorites – Add a URL to the IE’s favorites

' Add an URL to the IE's favorites by sending a client side JavaScript to IE'   sURL is the URL that the link will point to'   sDescr is the description displayed in the Favorites menu'' Example:'   AddToIEFavorites "www.vb2themax.com", "VB-2-The-Max: the ultimate VB source"Sub AddToIEFavorites(ByVal sURL As String, ByVal sDescr As String)    sURL = LCase(sURL)    ' add the http:// in case it isn't already present in the specified URL    If Left$(sURL, 7)  "http://" Then sURL = "http://" & sURL    ' open Exploring and load the script    ShellExecute 0, "Open", "javascript:window.external.AddFavorite('" & sURL & _        "','" & sDescr & "')", "", "", 0End Sub

devx-admin

Share the Post: