Truco (Crear un icono de acceso directo en el escritorio!!!)

foxleonardo
17 de Mayo del 2004
Hola, yo tengo el código para eso:
puedes visitar mi sitio www.empresade.cl registrarte, es gratuito. y en el futuro hacerme llegar tu consultas atravéz de mi sitio.

Le tienes que pasar do parámetros, la ubicación y el nombre

LPARAMETERS cdescripcion,cprograma
oWsh=CREATEOBJECT("WScript.Shell")
cDesktopDir=oWsh.SpecialFolders("Desktop")
oLnk=oWsh.CreateShortcut(cDesktopDir + '\Shortcut to'+' '+cdescripcion)
oLnk.TargetPath = cDesktopDir + cprograma
oLnk.Save()