使用 shell.application 获取特殊文件夹

Question

我需要在脚本中返回当前用户桌面的路径。现在我知道你可以用 WScript 来做到这一点。

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

但对于我的脚本来说，这不起作用，因为我无法使用 WScript。但我可以使用 shell.application 对象，如下所示。

 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

语法是什么，所以我可以简单地返回当前用户桌面的路径，而不是“BrowseForFolder”？

IE 将该行替换

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

为等效的。

strDesktop = WshShell.SpecialFolders("Desktop");

干杯

亚伦

Answer 1

您需要使用 Shell。命名空间 (...).Self.Path:

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

WScript.Echo strDesktop

但是对于我的脚本来说这不起作用，因为我无法使用 WScript。

您的意思是您不能使用 WScript.CreateObject(...) 因为 WScript 未定义？如果是这样，您只需使用 CreateObject("WScript.Shell").SpecialFolders("Desktop") 即可。请参阅 CreateObject 和 Wscript.CreateObject 有什么区别？。

Answer 2

尝试命名空间方法：

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

Where &H10&是桌面的特殊文件夹常量。有关所有特殊文件夹常量的列表，请参阅 technet。