Asigna un icono a un acceso directo o identifica el icono asignado a un acceso directo.
objeto.IconLocation = cdnUbicaciónIcono
Cadena.
El ejemplo siguiente muestra el uso de la propiedad IconLocation.
<package> <job id="vbs"> <script language="VBScript"> set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") set oShellLink = WshShell.CreateShortcut(strDesktop & "\Acceso directo a secuencia de comandos.lnk") oShellLink.TargetPath = WScript.ScriptFullName oShellLink.WindowStyle = 1 oShellLink.Hotkey = "Ctrl+Alt+e" oShellLink.IconLocation
= "notepad.exe, 0" 'El cero es el índice oShellLink.Description = "Acceso directo a secuencia de comandos" oShellLink.WorkingDirectory = strDesktop oShellLink.Save </script> </job> <job id="js"> <script language="JScript"> var WshShell = WScript.CreateObject("WScript.Shell"); strDesktop = WshShell.SpecialFolders("Desktop"); var oShellLink = WshShell.CreateShortcut(strDesktop + "\\Acceso directo a secuencia de comandos.lnk"); oShellLink.TargetPath = WScript.ScriptFullName; oShellLink.WindowStyle = 1; oShellLink.Hotkey = "Ctrl+Alt+e"; oShellLink.IconLocation
= "notepad.exe, 0"; //El cero es el índice oShellLink.Description = "Acceso directo a secuencia de comandos"; oShellLink.WorkingDirectory = strDesktop; oShellLink.Save(); </script> </job> </package>
Ayuda de Javascript y Vbscript para Javascripts.astalaweb.com. |