esa line macasda esta mal
Publicado por juan (134 intervenciones) el 19/10/2005 05:19:09
la linea
oMyShortCut.SourcePath = "c:\agenda"
me manda error en el exe, mi interes es poner el dato en INICIAR EN en el acceso directo ver propiedades
gacias de antemano
juan
IF !FILE("\\agenda.lnk")
WshShell = CreateObject("WScript.shell")
strDesktop = wshShell.SpecialFolders("Desktop")
oMyShortCut =WshShell.CreateShortcut(strDesktop+"\\Agenda.lnk")
oMyShortCut.WindowStyle = 3
oMyShortCut.IconLocation = "c:\agenda\clip07.ico"
oMyShortCut.TargetPath = "c:\agenda\Agenda.exe"
oMyShortCut.SourcePath = "c:\agenda" && ERROR,
oMyShortCut.HotKey = "ALT+CTRL+A"
oMyShortCut.Save
RELEASE oMyShortCut
endif
oMyShortCut.SourcePath = "c:\agenda"
me manda error en el exe, mi interes es poner el dato en INICIAR EN en el acceso directo ver propiedades
gacias de antemano
juan
IF !FILE("\\agenda.lnk")
WshShell = CreateObject("WScript.shell")
strDesktop = wshShell.SpecialFolders("Desktop")
oMyShortCut =WshShell.CreateShortcut(strDesktop+"\\Agenda.lnk")
oMyShortCut.WindowStyle = 3
oMyShortCut.IconLocation = "c:\agenda\clip07.ico"
oMyShortCut.TargetPath = "c:\agenda\Agenda.exe"
oMyShortCut.SourcePath = "c:\agenda" && ERROR,
oMyShortCut.HotKey = "ALT+CTRL+A"
oMyShortCut.Save
RELEASE oMyShortCut
endif
Valora esta pregunta
0