CommonAppData in vbscript

Question

Приложение клиента «AppName» имеет свои файлы конфигурации, хранящиеся в CommonAppData.

• В Windows XP это C:\Documents and Settings\All Users\Application Data\AppName
• Под Windows Vista, который C:\ProgramData\AppName

Как получить правильный FOLDERNAME с 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.