vb6中的CommonAppData

Question

基本上与这个问题相同,但对于VB6.

客户的应用程序"AppName"将其配置文件存储在CommonAppData中.

• 在Windows XP下,即C:\ Documents and Settings\All Users\Application Data\AppName
• 在Windows Vista下,即C:\ ProgramData\AppName

如何使用VB6获得正确的foldername ？？

附加说明,我更喜欢使用API​​调用而不是添加对shell32.dll的引用

Answer 1

使用后期绑定:

Const ssfCOMMONAPPDATA = &H23
Dim strCommonAppData As String

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