CommonAppData in VBScript

Question

Die Anwendung "AppName" eines Kunden hat seine Konfigurationsdateien in CommonAppData gespeichert.

• Unter Windows XP, die C:\Documents and Settings\All Users\Application Data\AppName
• Unter Windows Vista ist die C:\ProgramData\AppName

ist Wie kann ich die richtigen Ordner mit VBScript bekommen?

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 

Die MSDN hält eine Seite, die andere Shell Special Folder Constants auflistet.

Diese Seite ist auch nett: Enumerating Special Folders, Teil des Microsoft Windows 2000 Scripting Guide.