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.