CommonAppData en vbscript

Question

Application du client " NomApp " a ses fichiers de configuration stockés dans CommonAppData.

• Sous Windows XP, il s'agit de C: \ Documents and Settings \ Tous les utilisateurs \ Application Data \ NomApp
• Sous Windows Vista, il s'agit de C: \ ProgramData \ NomApp

Comment obtenir le nom de dossier correct avec 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

Le MSDN contient une page répertoriant les autres Shell Special. Constantes de dossier .

Cette page est également intéressante: Enumération des dossiers spéciaux , élément du Guide de script Microsoft Windows 2000.