CommonAppData em VBScript

Question

aplicação de um cliente "AppName" tem seus arquivos de configuração armazenados no CommonAppData.

• No Windows XP que é C:\Documents and Settings\All Users\Application Data\AppName
• No Windows Vista que é C:\ProgramData\AppName

Como faço para obter o nome da pasta correta com 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

O MSDN tem uma página que lista o outro Shell Especial pasta Constantes .

Esta página é bom, também: Enumerando pastas especiais , parte do Guia de scripts do Microsoft Windows 2000.