generar un icono en el escritorio

Internet explorer tiene una opción:
Archivo --> Enviar --> Acceso directo al escritorio
Será eso lo que estás buscando?.


"Jesus Ramon Lopez Dominguez" escribió en el mensaje
news:

Grupo

puedo generar un acceso directo en el escritorio al momento de ingregar a
una pagina?

de antemano gracias
JeSuSx

Dim wshShell, strEscritorio, oShellLink
Set wshShell = CreateObject("WScript.Shell")
strEscritorio = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strEscritorio & "\Google.lnk")
oShellLink.TargetPath = "http://www.google.com"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "CTRL+SHIFT+G"
oShellLink.Description = "Comentario del acceso directo"
oShellLink.WorkingDirectory = strEscritorio
oShellLink.Save

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic

si bueno eso lo genera ¿en el server?

espero! sino ya veo mi escritorio lleno de iconos que no he pedido =)


-o|o|--
-o|o| dani castillo
-o|o| http://www15.brinkster.com/danic/
-o|o| tutorial y trucos asp, vb, diseño
-o|o|--
"Rubén Vigón" escribió en el mensaje
news:
Dim wshShell, strEscritorio, oShellLink
Set wshShell = CreateObject("WScript.Shell")
strEscritorio = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strEscritorio & "\Google.lnk")
oShellLink.TargetPath = "http://www.google.com"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "CTRL+SHIFT+G"
oShellLink.Description = "Comentario del acceso directo"
oShellLink.WorkingDirectory = strEscritorio
oShellLink.Save

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic

Para que ese acceso directo se genere en el equipo del cliente... deberas
hace un OCX o Active X Control. De esta forma tu codigo se ejecutara en el
equipo del cliente.


"danicastillo" escribió en el
mensaje news:Onk$

si bueno eso lo genera ¿en el server?

espero! sino ya veo mi escritorio lleno de iconos que no he pedido =)


-o|o|--
-o|o| dani castillo
-o|o| http://www15.brinkster.com/danic/
-o|o| tutorial y trucos asp, vb, diseño
-o|o|--
"Rubén Vigón" escribió en el mensaje
news:
Dim wshShell, strEscritorio, oShellLink
Set wshShell = CreateObject("WScript.Shell")
strEscritorio = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strEscritorio &

"\Google.lnk")

oShellLink.TargetPath = "http://www.google.com"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "CTRL+SHIFT+G"
oShellLink.Description = "Comentario del acceso directo"
oShellLink.WorkingDirectory = strEscritorio
oShellLink.Save

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic