Resumen Crear acceso directo

Mensaje enviado por "Alberto Vernieri" <AVernieri@juncalnet.com.ar>

Hola!

La más fácil es usar el objeto Shell del Windows Scripting...

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

   set WshShell = CreateObject("WScript.Shell")
   strDesktop = WshShell.SpecialFolders("Desktop")
   set oShellLink = WshShell.CreateShortcut(strDesktop & "\Nombre del Acceso Directo.lnk")
   oShellLink.TargetPath = "Path completo del archivo"
   oShellLink.WindowStyle = 1
   oShellLink.Hotkey = "CTRL+SHIFT+F"
   oShellLink.IconLocation = "Icono.ico"
   oShellLink.Description = "Titulo del Acceso Directo "
   oShellLink.WorkingDirectory = strDesktop
   oShellLink.Save

Saludos
Alberto

>>> "=?Windows-1252?Q?An=EDbal_M.L.?=" <AnibalML@HotPOP.com> 30/04/01 14:27 >>>
+C=mo puedo hacer un acceso directo (.lnk) a un archivo cualquiera?. Muchas gracias.



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com