Private Declare Function SHGetSpecialFolderPath Lib "SHELL32.DLL" Alias _
  "SHGetSpecialFolderPathA" (ByVal hWnd As Long, ByVal lpszPath As String, _
  ByVal nFolder As Integer, ByVal fCreate As Boolean) As Boolean

    CSIDL_COMMON_ALTSTARTUP = &H1E ' *  - File system directory that 
    ' corresponds to the nonlocalized Startup program group for all users. 
    ' Valid only for Windows NT systems.
    CSIDL_COMMON_APPDATA = &H23 ' *  - Version 5.0. Application data for all 
    ' users. A common path is C:\WINNT\Profiles\All Users\Application Data.
    CSIDL_COMMON_DESKTOPDIRECTORY = &H19 ' *  - File system directory used to 
    ' physically store file objects on the desktop (not to be confused with the 
    ' desktop folder itself). A common path is 
    ' C:\WINNT\Profiles\username\Desktop
    CSIDL_COMMON_DOCUMENTS = &H2E ' *  - File system directory that contains 
    ' documents that are common to all users. A common path is 
    ' C:\WINNT\Profiles\All Users\Documents. Valid only for Windows NT systems.
    CSIDL_COMMON_FAVORITES = &H1F ' *  - File system directory that serves as a 
    ' common repository for all users' favorite items. Valid only for Windows _
    NT systems.
    CSIDL_COMMON_PROGRAMS = &H17 ' *  - File system directory that contains the 
    ' directories for the common program groups that appear on the Start menu 
    ' for all users. A common path is c:\WINNT\Profiles\All Users\Start 
    ' Menu\Programs. Valid only for Windows NT systems.
    CSIDL_COMMON_STARTMENU = &H16 ' *  - File system directory that contains 
    ' the programs and folders that appear on the Start menu for all users. A 
    ' common path is C:\WINNT\Profiles\All Users\Start Menu. Valid only for 
    ' Windows NT systems.
    CSIDL_COMMON_STARTUP = &H18 ' *  - File system directory that contains the 
    ' programs that appear in the Startup folder for all users. A common path 
    ' is C:\WINNT\Profiles\All Users\Start Menu\Programs\Startup. Valid only 
    ' for Windows NT systems.
    CSIDL_COMMON_TEMPLATES = &H2D ' *  - File system directory that contains 
    ' the templates that are available to all users. A common path is 
    ' C:\WINNT\Profiles\All Users\Templates. Valid only for Windows NT systems.
    CSIDL_COOKIES = &H21 ' *  - File system directory that serves as a common 
    ' repository for Internet cookies. A common path is 
    ' C:\WINNT\Profiles\username\Cookies.
    CSIDL_DESKTOPDIRECTORY = &H10 ' *  - File system directory that contains 
    ' files and folders that appear on the desktop for all users. A common path 
    ' is C:\WINNT\Profiles\All Users\Desktop. Valid only for Windows NT systems.
    CSIDL_FAVORITES = &H6 ' *  - File system directory that serves as a common 
    ' repository for the user's favorite items. A common path is _
    C:\WINNT\Profiles\username\Favorites.
    CSIDL_FONTS = &H14 ' *  - Virtual folder containing fonts. A common path is 
    ' C:\WINNT\Fonts.
    CSIDL_HISTORY = &H22 ' *  - File system directory that serves as a common 
    ' repository for Internet history items.
    CSIDL_INTERNET_CACHE = &H20 ' *  - File system directory that serves as a 
    ' common repository for temporary Internet files. A common path is 
    ' C:\WINNT\Profiles\username\Temporary Internet Files.
    CSIDL_LOCAL_APPDATA = &H1C ' *  - Version 5.0. File system directory that 
    ' serves as a data repository for local (non-roaming) applications. A 
    ' common path is C:\WINNT\Profiles\username\Local Settings\Application Data.
    CSIDL_PROGRAMS = &H2 ' *  - File system directory that contains the user's _
      program groups (which are also file system directories). A common path is _
      C:\WINNT\Profiles\username\Start Menu\Programs.
    CSIDL_PROGRAM_FILES = &H26 ' *  - Version 5.0. Program Files folder. A 
    ' common path is C:\Program Files.
    CSIDL_PROGRAM_FILES_COMMON = &H2B ' *  - Version 5.0. A folder for 
    ' components that are shared across applications. A common path is 
    ' C:\Program Files\Common. Valid only for Windows NT and Windows® 2000 
    ' systems.
    CSIDL_PERSONAL = &H5 ' *  - File system directory that serves as a common 
    ' repository for documents. A common path is C:\WINNT\Profiles\username\My 
    ' Documents.

CSIDL_PERSONAL

'Systemordner ermitteln
Public Function GetSpecialFolderA(ByVal lngSpecialFolder As Long) As String
 
Dim Ret As Long
Dim Trash As String
 
   Trash = Space$(260)
 
   Ret = SHGetSpecialFolderPath(0, Trash, lngSpecialFolder , False)
   If Trim$(Trash) <> Chr(0) Then Trash = Left$(Trash, InStr(Trash, Chr(0)) _
     - 1) '& "\"
 
   GetSpecialFolderA = Trash
 
End Function