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"

它将返回桌面文件夹的位置以及重定向文件夹。