CommonAppData en vbscript

Question

La aplicación del cliente "AppName" tiene sus archivos de configuración almacenados en CommonAppData.

• En Windows XP que es C:\Documents and Settings\All Users\Application Data\AppName
• En Windows Vista que se C:\ProgramData\AppName

¿Cómo consigo el nombre de carpeta correcta con 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 

El MSDN sostiene una página que muestra la otra Shell Special Folder Constants.

Esta página es buena también: Enumerating Special Folders, parte de la Guía de scripts de Microsoft Windows 2000.