SoloCodigo

Estoy creando una aplicacion que simule un navegador. Al hacer la parte de favoritos quisiera poder guardar en una carpeta un acceso directo a la pagina (como se hace en windows) pero no se como hacerlo.

Se le ocurre a alguien como podria hacerlo?
Muchas gracias

Bea

Ya he encontrado la solucion.
Es la siguiente:

Dim WshShell as Object, strDesktop as Object, oShellLink as Object

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oUrlLink = WshShell.CreateShortcut(strDesktop & "\Microsoft Web Site.url")
oUrlLink.TargetPath = "http://www.microsoft.com"
oUrlLink.Save

Chao