_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Public Enum ceFolders As Integer
            CSIDL_APPDATA = &H1A 'File system directory that serves as a common 
            ' repository for application-specific data.
            CSIDL_DESKTOP = &H0 'Not supported on Smartphone.
            CSIDL_DESKTOPDIRECTORY = &H10 'File system directory used to 
            ' physically store file objects on the desktop (not to be confused 
            ' with the desktop folder itself).
            CSIDL_FAVORITES = &H6 'The file system directory that serves as a 
            ' common repository for the user's favorite items.
            CSIDL_FONTS = &H14 'The virtual folder that contains fonts.
            CSIDL_MYMUSIC = &HD 'Folder that contains music files.
            CSIDL_MYPICTURES = &H27 'Folder that contains picture files.
            CSIDL_MYVIDEO = &HE 'Folder that contains video files.
            CSIDL_PERSONAL = &H5 'The file system directory that serves as a 
            ' common repository for documents.
            CSIDL_PROFILE = &H28 'Folder that contains the profile of the user.
            CSIDL_PROGRAM_FILES = &H26 'The program files folder.
            CSIDL_PROGRAMS = &H2 'The file system directory that contains the 
            ' user's program groups, which are also file system directories.
            CSIDL_RECENT = &H8 'File system directory that contains the user's _
              most recently used documents.
            CSIDL_STARTUP = &H7 'The file system directory that corresponds to 
            ' the user's Startup program group. The system starts these _
            programs when a device is powered on.
            CSIDL_WINDOWS = &H24 'The Windows folder.
        End Enum
 
        Private Declare Function SHGetSpecialFolderPath Lib "coredll.dll" ( _
          ByVal hwndOwner As Integer, ByVal lpszPath As String, ByVal nFolder _
          As ceFolders, ByVal fCreate As Boolean) As Boolean
 
        Public Shared Function getSpecialFolder(ByVal Folder As ceFolders) As _
          String
            Try
                Dim sPath As New String(" "c, 260)
                SHGetSpecialFolderPath(0, sPath, Folder, False)
                Return sPath
            Catch ex As Exception
                Return String.Empty
            End Try
        End Function