Devuelve un objeto SpecialFolders (una colección de carpetas especiales).
objeto.SpecialFolders(objCarpetasEspecialesWsh)
Éstas son las carpetas especiales disponibles:
El ejemplo siguiente muestra el uso de la propiedad SpecialFolders.
<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"
oShellLink.Description = "Acceso directo a secuencia de comandos"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
set oUrlLink = WshShell.CreateShortcut(strDesktop & "\Sitio Web de Microsoft.url")
oUrlLink.TargetPath = "http://www.microsoft.com/spanish/"
oUrlLink.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";
oShellLink.Description = "Acceso directo a secuencia de comandos";
oShellLink.WorkingDirectory = strDesktop;
oShellLink.Save();
var oUrlLink = WshShell.CreateShortcut(strDesktop + "\\Sitio Web de Microsoft.url");
oUrlLink.TargetPath = "http://www.microsoft.com/spanish/";
oUrlLink.Save();
</script>
</job>
</package>
Ejecutar sus secuencias de comandos | Objeto WshSpecialFolders | Objeto WshShell
Ayuda de Javascript y Vbscript para Javascripts.astalaweb.com. |