Para asignar carpetas especiales, como la carpeta Mis documentos del escritorio, es necesario utilizar el objeto Shell. Las siguientes secuencias de comandos muestran cómo utilizar el objeto Shell para crear un acceso directo a una carpeta en el escritorio.
// JScript.
var Shell, RutaEscritorio, URL;
Shell = new ActiveXObject("WScript.Shell");
RutaEscritorio = Shell.SpecialFolders("Desktop");
URL = Shell.CreateShortcut(RutaEscritorio + "\\MSDN Scripting.url");
URL.TargetPath = "HTTP://www.microsoft.com/spain/scripting/default.asp";
URL.Save();
' VBScript.
Dim Shell, RutaEscritorio, URL
Set Shell = CreateObject("WScript.Shell")
RutaEscritorio = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(RutaEscritorio & "\MSDN Scripting.URL")
URL.TargetPath = "HTTP://www.microsoft.com/spain/scripting/default.asp"
URL.Save
| Ayuda de Javascript y Vbscript para Javascripts.astalaweb.com. |