Question

Basically the same as this question, but for VB6.

A customer’s application “AppName” has
its configuration files stored in
CommonAppData.

• Under Windows XP that is C:\Documents and Settings\All
  Users\Application Data\AppName
• Under Windows Vista that is C:\ProgramData\AppName

How do I get the correct foldername with VB6??

Additional notes, I prefer to use a API Call instead of adding a reference to the shell32.dll

Answer 1

Use late binding:

Const ssfCOMMONAPPDATA = &H23
Dim strCommonAppData As String

strCommonAppData = _
    CreateObject("Shell.Application").NameSpace(ssfCOMMONAPPDATA).Self.Path