vbscript中的CommonAppData

Question

客户的应用程序"AppName"将其配置文件存储在CommonAppData中.

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

如何使用VBScript获取正确的foldername？

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 Scripting Guide的一部分.