Windows vbscript中的CommonAppData

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

• 在Windows XP下，即

  C:\Documents and Settings\All Users\Application Data\AppName

• 在Windows Vista下，即

  C:\ProgramData\AppName

如何使用VBScript获得正确的foldername

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包含一个页面，其中列出了另一个

这个页面也很好：，是MicrosoftWindows2000脚本指南的一部分。（链接现在已失效，但是。）