SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: sabrina77 en Lunes 29 de Diciembre de 2003, 08:21

Título: Crear Accesos Directos
Publicado por: sabrina77 en Lunes 29 de Diciembre de 2003, 08:21
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
Título: Re: Crear Accesos Directos
Publicado por: sabrina77 en Lunes 29 de Diciembre de 2003, 14:18
Una aclaracion:

Lo que quiero es hacer un acceso directo a internet, no un acceso directo a una pagina html que tenga guardada.

Muchas gracias

Bea
Título: Re: Crear Accesos Directos
Publicado por: sabrina77 en Lunes 29 de Diciembre de 2003, 14:45
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  ;)