' 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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
