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 Special Folder Constants的页面。

此页面还不错：Enumerating Special Folders，它是Microsoft Windows 2000 Scripting Guide的一部分。