windows - CommonAppData en vbscript

winapi windows-shell

Question

La aplicación de un 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, es C:/ProgramData/AppName

¿Cómo obtengo el nombre de carpeta correcto 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

MSDN contiene una página que enumera las otras constantes de carpetas especiales de Shell .

Esta página también es agradable: Enumeración de carpetas especiales , parte de la Guía de scripts de Microsoft Windows 2000.