ACCESO DIRECTO
Publicado por MARCELO (72 intervenciones) el 24/08/2010 15:29:57
HOAL .MEDIANTE Este codigo cree un acceso directo :
WshShell = CreateObject("WScript.shell")
strDesktop = wshShell.SpecialFolders("Desktop")
oMyShortCut =WshShell.CreateShortcut(strDesktop+"\"+"cobranzas.lnk")
oMyShortCut.WindowStyle = 3
*oMyShortCut.IconLocation = SYS(5)+CURDIR()+"
oMyShortCut.TargetPath =SYS(5)+CURDIR()+"cobranzas.EXE"
oMyShortCut.HotKey = "ALT+CTRL+F"
oMyShortCut.Save
me lo crea ok .Lo que necesito saber es que linea tengo que poner para que me llene el campo "iniciar en" que se ve por el acceso directo --boton derecho propiedades ,que es donde se pone la ruta de la carpeta donde esta el sistema instalado .
desde ya garcia s
WshShell = CreateObject("WScript.shell")
strDesktop = wshShell.SpecialFolders("Desktop")
oMyShortCut =WshShell.CreateShortcut(strDesktop+"\"+"cobranzas.lnk")
oMyShortCut.WindowStyle = 3
*oMyShortCut.IconLocation = SYS(5)+CURDIR()+"
oMyShortCut.TargetPath =SYS(5)+CURDIR()+"cobranzas.EXE"
oMyShortCut.HotKey = "ALT+CTRL+F"
oMyShortCut.Save
me lo crea ok .Lo que necesito saber es que linea tengo que poner para que me llene el campo "iniciar en" que se ve por el acceso directo --boton derecho propiedades ,que es donde se pone la ruta de la carpeta donde esta el sistema instalado .
desde ya garcia s
Valora esta pregunta
0