Truco (Crear un icono de acceso directo en el escritorio!!!)
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()
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()