VB6 - Enumerated SpecialFolders - for Intellisense

[Dave Sell]

Not sure if this has been done already...

A .BAS module to help ease the use of the SpecialFolders API. Hand-typed, please check for any errors or typos. If incomplete, please post additions.

Dave

[Dave Sell]

It appears to have a problem if your "MyDocuments" Folder is moved... Seems other have had similar problems with the API.

[Nightwalker83]

Why do both:

Private Sub Form_Load()
Debug.Print (GetSpecialfolder(SpecialFolders.appdata))
Debug.Print (GetSpecialfolder(SpecialFolders.Local_AppData))
End Sub

print the "Roaming" folder when I need the "Local" folder location?

[jpbro]

Because there's a mistake in the SpecialFolders Enum:

Local_AppData = CSIDL_APPDATA


Should be:

Local_AppData = CSIDL_LOCAL_APPDATA

[Nightwalker83]

Because there's a mistake in the SpecialFolders Enum:

Local_AppData = CSIDL_APPDATA


Should be:

Local_AppData = CSIDL_LOCAL_APPDATA

Ah ok thanks! + REP.