vbscript 中的 CommonAppData

Question

客户的应用程序“AppName”的配置文件存储在 CommonAppData 中。

• 在 Windows XP 下，为 C:\Documents and Settings\All Users\Application Data\AppName
• 在 Windows Vista 下，为 C:\ProgramData\AppName

我如何获得正确的VBScript 的文件夹名称？

Answer 1

Const CommonAppData = &H23&  ' the second & denotes a long integer '

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

Set objFolderItem = objFolder.Self

MsgBox objFolderItem.Name & ": " & objFolderItem.Path

MSDN 拥有一个页面，其中列出了其他 Shell 特殊文件夹常量。

此页面也很好：枚举特殊文件夹 ，Microsoft Windows 2000 脚本指南的一部分。 （链接现已失效，但 互联网档案馆仍有副本。）