'quelle: http://msdn2.microsoft.com/en-us/library/ms649274.aspx
    'quelle: http://vbnet.mvps.org/index.html?code/browse/csidl.htm
    'bei vista ist das anderst - muss beachtet werden
    Public Const CSIDL_ADMINTOOLS = &H30
    Public Const CSIDL_ALTSTARTUP = &H1D
    Public Const CSIDL_APPDATA = &H1A
    Public Const CSIDL_BITBUCKET = &HA
    Public Const CSIDL_CDBURN_AREA = &H3B
    Public Const CSIDL_COMMON_ADMINTOOLS = &H2F
    Public Const CSIDL_COMMON_ALTSTARTUP = &H1E
    Public Const CSIDL_COMMON_APPDATA = &H23
    Public Const CSIDL_COMMON_DESKTOPDIRECTORY = &H19
    Public Const CSIDL_COMMON_DOCUMENTS = &H2E
    Public Const CSIDL_COMMON_FAVORITES = &H1F
    Public Const CSIDL_COMMON_MUSIC = &H35
    Public Const CSIDL_COMMON_OEM_LINKS = &H3A
    Public Const CSIDL_COMMON_PICTURES = &H36
    Public Const CSIDL_COMMON_PROGRAMS = &H17
    Public Const CSIDL_COMMON_STARTMENU = &H16
    Public Const CSIDL_COMMON_STARTUP = &H18
    Public Const CSIDL_COMMON_TEMPLATES = &H2D
    Public Const CSIDL_COMMON_VIDEO = &H37
    Public Const CSIDL_COMPUTERSNEARME = &H3D
    Public Const CSIDL_CONNECTIONS = &H31
    Public Const CSIDL_CONTROLS = &H3
    Public Const CSIDL_COOKIES = &H22
    Public Const CSIDL_DESKTOP = &H0
    Public Const CSIDL_DESKTOPDIRECTORY = &H10
    Public Const CSIDL_DRIVES = &H11
    Public Const CSIDL_FAVORITES = &H6
    Public Const CSIDL_FONTS = &H14
    Public Const CSIDL_HISTORY = &H22
    Public Const CSIDL_INTERNET = &H1
    Public Const CSIDL_INTERNET_CACHE = &H20
    Public Const CSIDL_LOCAL_APPDATA = &H1C
    Public Const CSIDL_MYDOCUMENTS = &HC
    Public Const CSIDL_MYMUSIC = &HD
    Public Const CSIDL_MYPICTURES = &H27
    Public Const CSIDL_MYVIDEO = &HE
    Public Const CSIDL_NETHOOD = &H13
    Public Const CSIDL_NETWORK = &H12
    Public Const CSIDL_PERSONAL = &H5
    Public Const CSIDL_PRINTERS = &H4
    Public Const CSIDL_PRINTHOOD = &H1B
    Public Const CSIDL_PROFILE = &H28
    Public Const CSIDL_PROGRAM_FILES = &H26
    Public Const CSIDL_PROGRAM_FILESX86 = &H2A
    Public Const CSIDL_PROGRAM_FILES_COMMON = &H2B
    Public Const CSIDL_PROGRAM_FILES_COMMONX86 = &H2C
    Public Const CSIDL_PROGRAMS = &H2
    Public Const CSIDL_RECENT = &H8
    Public Const CSIDL_RESOURCES = &H38
    Public Const CSIDL_RESOURCES_LOCALIZED = &H39
    Public Const CSIDL_SENDTO = &H9
    Public Const CSIDL_STARTMENU = &HB
    Public Const CSIDL_STARTUP = &H7
    Public Const CSIDL_SYSTEM = &H25
    Public Const CSIDL_SYSTEMX86 = &H29
    Public Const CSIDL_TEMPLATES = &H15
    Public Const CSIDL_WINDOWS = &H24
    'flags
    Public Const CSIDL_FLAG_PER_USER_INIT = &H800
    Public Const CSIDL_FLAG_NO_ALIAS = &H1000
    Public Const CSIDL_FLAG_DONT_VERIFY = &H4000
    Public Const CSIDL_FLAG_CREATE = &H8000
    Public Const CSIDL_FLAG_MASK = &HFF00
 
    Private Const MAXPATH = 260
 
    Private Declare Auto Function SHGetSpecialFolderLocation Lib "shell32" _
        (ByVal hwndOwner As IntPtr, ByVal nFolder As Integer, ByRef ppidl As _
        Integer) As Integer
 
    Private Declare Auto Function SHGetPathFromIDList Lib "shell32" _
        (ByVal pidl As Integer, ByVal pszPath As System.Text.StringBuilder) As _
        Boolean
 
    Private Declare Sub CoTaskMemFree Lib "ole32" (ByVal pv As Integer)
 
    Public Function GetSpecialFolderLocation(ByVal hWnd As IntPtr, ByVal csidl _
      As Integer) As String
        Dim path As New System.Text.StringBuilder(MAXPATH)
        Dim pidl As Integer
        Dim rpath As String = String.Empty
 
        If SHGetSpecialFolderLocation(hWnd, csidl, pidl) = 0 Then
            If SHGetPathFromIDList(pidl, path) Then
                rpath = path.ToString()
            End If
            CoTaskMemFree(pidl)
        End If
        Return rpath
    End Function