Retrieve 'Local Settings' Directory [Resolved]

I need to get the directory for Outlook where it stores the .pst
files under windows 2k & XP. This path under windows 2000 is

C:\Documents and Settings\UserName\Local Settings\Application Data\Microsoft\Outlook

I can't get it through Outlook so I am trying to get it by getting a
related folder. I thought about the temp directory, but that will be
in a number of locations and could be changed. What would be
the best I think is to get the path to the "Local Settings" directory.
I don't want to depend on the path "C:\Documents and Settings\UserName
of always being the same because I'm not sure if it IS always the
same and cant be changed under 2000 & XP.

Any ideas?

Thanks in advance for any help.

Heavily modified version of the allapi example, with fixes for option explicit:

VB Code:

Option Explicit
 
Private Type ****EMID
  cb As Long
  abID As Byte
End Type
 
Private Type ITEMIDLIST
  mkid As ****EMID
End Type
 
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
 
Private Sub Form_Load()
  Debug.Print GetSpecialfolder(28)
End Sub
 
Private Function GetSpecialfolder(CSIDL As Long) As String
  Dim r As Long, sPath As String
  Dim IDL As ITEMIDLIST
  
  r = SHGetSpecialFolderLocation(100, CSIDL, IDL)
  
  If r = 0 Then
    sPath = Space$(512)
    r = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath)
    GetSpecialfolder = Left$(sPath, InStr(sPath, Chr$(0)) - 1)
    Exit Function
  End If
  
  GetSpecialfolder = ""
End Function

Output to the immediate window should be c:\documents & Settings\[username]\local settings\application data

In case anyone is wondering the "****" in the above was the result of our bad-word filter. The original enum was named ****EMID.

Yes, I saw the example from allapi, but I didnt see a const for
Local Settings. Is that what 28 is equilivalent to?

VB Code:

Const CSIDL_DESKTOP = &H0
Const CSIDL_INTERNET = &H1
Const CSIDL_PROGRAMS = &H2
Const CSIDL_CONTROLS = &H3
Const CSIDL_PRINTERS = &H4
Const CSIDL_PERSONAL = &H5
Const CSIDL_FAVORITES = &H6
Const CSIDL_STARTUP = &H7
Const CSIDL_RECENT = &H8
Const CSIDL_SENDTO = &H9
Const CSIDL_BITBUCKET = &HA
Const CSIDL_STARTMENU = &HB
Const CSIDL_DESKTOPDIRECTORY = &H10
Const CSIDL_DRIVES = &H11
Const CSIDL_NETWORK = &H12
Const CSIDL_NETHOOD = &H13
Const CSIDL_FONTS = &H14
Const CSIDL_TEMPLATES = &H15
Const CSIDL_COMMON_STARTMENU = &H16
Const CSIDL_COMMON_PROGRAMS = &H17
Const CSIDL_COMMON_STARTUP = &H18
Const CSIDL_COMMON_DESKTOPDIRECTORY = &H19
Const CSIDL_APPDATA = &H1A
Const CSIDL_PRINTHOOD = &H1B
Const CSIDL_ALTSTARTUP = &H1D
Const CSIDL_COMMON_ALTSTARTUP = &H1E
Const CSIDL_COMMON_FAVORITES = &H1F
Const CSIDL_INTERNET_CACHE = &H20
Const CSIDL_COOKIES = &H21
Const CSIDL_HISTORY = &H22

So this CSIDL_APPDATA is the one under Local Settings and not
under UserName?

Yes, it works fine.
Thanks for the help guys.