如何使用文件夹重定向启用%UserProfile%脚本?

时间:2013-02-23 23:01:24

标签: vbscript

我正在尝试使用文件夹重定向,在设置完成后,我很快意识到任何具有环境变量(例如%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的等价物。

感谢任何帮助。谢谢!

1 个答案:

答案 0 :(得分:4)

我认为SpecialFolders就是你要找的东西

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

它还将使用重定向文件夹返回Desktop-folder的位置。