Function OtroAccessoDirectoPaco()
'Crea un acceso directo del Explorador, en el Escritorio
'Buho Junio 2003

 Dim ObjetoWSS As Object
 Dim AccesoDirecto As Object
 Dim Ruta As String
 Set ObjetoWSS = CreateObject("WScript.Shell")
 'En el escritorio
 Ruta = ObjetoWSS.SpecialFolders("Desktop") & "\" & ObjetoWSS.ExpandEnvironmentstrings("MiAccesoDirecto") & ".lnk"
 Set AccesoDirecto = ObjetoWSS.CreateShortcut(Ruta)
 'Fichero a crear acceso directo. En este caso el Explorador de Windows
 AccesoDirecto.TargetPath = ObjetoWSS.ExpandEnvironmentstrings("%windir%\explorer.exe")
 '¿Que icono le pongo? Pues el mismo del explorer
 AccesoDirecto.IconLocation = ObjetoWSS.ExpandEnvironmentstrings("%windir%\explorer.exe, 0")
 AccesoDirecto.WindowStyle = 0
 AccesoDirecto.Save
 Set AccesoDirecto = Nothing
 Set ObjetoWSS = Nothing
End Function