CommonAppData в vbscript

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 есть страница, на которой перечислены другие Константы специальных папок оболочки.

Эта страница тоже хороша: Перечисление специальных папок, часть Руководства по написанию сценариев Microsoft Windows 2000.