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. |