vbscript - 如何启用 %UserProfile% 以使用文件夹重定向进行脚本编写？

Question

我正在尝试使用文件夹重定向，在设置好它之后，我很快意识到任何具有环境变量（如 %UserProfile%）的 VBS 脚本都变得不可用。

例如：

 C:\MD %UserProfile%\Desktop\Not_Created_On_Real_Desktop\

和

'Place to deposit excel output file
Depo=oShell.ExpandEnvironmentStrings("%userprofile%" & "\Desktop\Folder_This_User_Needs_Easy_Access_To\")
if not objfso.folderexists(Depo) then
objFSO.CreateFolder(Depo)
end if

使用文件夹重定向时，这些不再起作用。我希望有一个解决方法，因为我现有的很多脚本都依赖于这个变量保持有效。我发现 .NET 能够通过以下方式提取重定向的文件夹：

Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)

不过，我没有太多运气找到 VBS 的等价物。

任何帮助表示赞赏。谢谢！

Answer 1

我认为 SpecialFolders 是您正在寻找的

Depo=oShell.SpecialFolders("Desktop") & "\Test"

它还将返回带有重定向文件夹的桌面文件夹的位置。