vbscript - geting carpetas especiales con shell.application

path special-folders

Question

Necesito en una secuencia de comandos para devolver la ruta al escritorio del usuario actual. Ahora sé que puedes hacerlo con WScript.

var WshShell = WScript.CreateObject("WScript.Shell");
         strDesktop = WshShell.SpecialFolders("Desktop");

Pero para mi script esto no funcionará ya que no puedo usar WScript. pero puedo usar el objeto shell.application como a continuación.

 dim objShell
        dim ssfWINDOWS
        dim objFolder

        ssfWINDOWS = 0
        set objShell = CreateObject("shell.application")
            set objFolder = objshell.BrowseForFolder(0, "Example", 0, ssfWINDOWS)
                if (not objFolder is nothing) then
                Set objFolderItem = objFolder.Self
                    g_objIE.Document.All("logdir").Value = objFolderItem.path
                end if
            set objFolder = nothing
        set objShell = nothing

¿Cuál es la sintaxis por lo que en lugar de "BrowseForFolder" puedo simplemente devolver la ruta del escritorio actual de los usuarios?

IE reemplazar la línea

set objFolder = objshell.BrowseForFolder(0, "Example", 0, ssfWINDOWS)

con el equivalente de.

strDesktop = WshShell.SpecialFolders("Desktop");

Aclamaciones

Aaron

Answer 1

Pruebe el método del espacio de nombres:

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(&H10&)

Where & H10 & es una constante de carpeta especial para el escritorio. Consulte technet para obtener una lista de todas las constantes de carpetas especiales.

Answer 2

Necesitas usar Shell. Namespace (...).Self.Path Shell. Namespace (...).Self.Path :

Const ssfDESKTOPDIRECTORY = &h10
Set oShell = CreateObject("Shell.Application")
strDesktop = oShell.NameSpace(ssfDESKTOPDIRECTORY).Self.Path

WScript.Echo strDesktop

Pero para mi script esto no funcionará ya que no puedo usar WScript.

¿Quiere decir que no puede usar WScript.CreateObject(...) porque WScript no está definido? Si es así, simplemente puede usar CreateObject("WScript.Shell").SpecialFolders("Desktop") lugar. Consulte ¿Cuál es la diferencia entre CreateObject y Wscript.CreateObject? .