VBS - 获取程序文件的文件夹路径？

Question

我打算在vbs中获取程序文件文件夹。试过这个没有运气;

SET wsc = CreateObject("WScript.Shell") 
SET fso = WScript.CreateObject("Scripting.FileSystemObject") 
targetpath = wsc.SpecialFolders("ProgramFiles") & "\Google\Chrome\Application\chrome.exe" 

它刚刚得到的C：\目录。什么是正确的方法来做到这一点？

Answer 1

此TechNet文章显示特殊文件夹列表。 Program Files不在其中。这是Windows脚本宿主的限制。同样，下面显示的是空白弹出框

SET wsc = CreateObject("WScript.Shell") 
msgbox wsc.SpecialFolders("Awesome") 

所以相反，您至少有2个选项。

Set objShell = CreateObject("Shell.Application") 
Set objFolder = objShell.Namespace(&H26&) 
Set objFolderItem = objFolder.Self 
msgbox objFolderItem.Path 

• & H26 & - Program Files文件
• & H2A & - 程序文件（x86）

，我会提供的是使用环境变量，例如JosefZ提出另一种选择。

targetpath = wsc.ExpandEnvironmentStrings("%ProgramFiles%") & "..." 
targetpath = wsc.ExpandEnvironmentStrings("%ProgramFiles(x86)%") & "..."