Crear acceso directo, con el instalador de visual foxpro

Yrina
13 de Febrero del 2004
Cuando hago un instalador con visual foxpro, nose como hacer que cuando se instale cree un acceso directo en el escritorio Porfa una ayuda.

Miguel
13 de Febrero del 2004
Mira a ver si te funciona esto

WshShell = CreateObject("WScript.shell")
strDesktop = wshShell.SpecialFolders("Desktop")
oMyShortCut =WshShell.CreateShortcut(strDesktop+"\mi ejemplo.lnk")
oMyShortCut.WindowStyle = 3
&&oMyShortCut.IconLocation = "c:\fox.ico"
oMyShortCut.TargetPath = "%windir%\notepad.exe"
oMyShortCut.HotKey = "ALT+CTRL+F"
oMyShortCut.Save
wait window \'Acceso directo creado\' nowait