• Home
 · 
• Windows System Services
 · 
• Return various directories including desktop, programs, personal, favorites, start menu, fonts, etc

Return various directories including desktop, programs, personal, favorites, start menu, fonts, etc

Return various directories including desktop, programs, personal, favorites, start menu, fonts, etc.

API Declarations


sfidDESKTOP = &H0
sfidPROGRAMS = &H2
sfidPERSONAL = &H5
sfidFAVORITES = &H6
sfidSTARTUP = &H7
sfidRECENT = &H8
sfidSENDTO = &H9
sfidSTARTMENU = &HB
sfidDESKTOPDIRECTORY = &H10
sfidNETHOOD = &H13
sfidFONTS = &H14
sfidTEMPLATES = &H15
sfidCOMMON_STARTMENU = &H16
sfidCOMMON_PROGRAMS = &H17
sfidCOMMON_STARTUP = &H18
sfidCOMMON_DESKTOPDIRECTORY = &H19
sfidAPPDATA = &H1A
sfidPRINTHOOD = &H1B
sfidProgramFiles = &H10000
sfidCommonFiles = &H10001
End Enum

Public Declare Function SHGetSpecialFolderLocation Lib "shell32" (ByVal hwndOwner As Long, ByVal nFolder As SpecialFolderIDs, ByRef pIdl As Long) As Long
Public Declare Function SHGetPathFromIDListA Lib "shell32" (ByVal pIdl As Long, ByVal pszPath As String) As Long

Public Const NOERROR = 0



Rate Return various directories including desktop, programs, personal, favorites, start menu, fonts, etc

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    Dim IDL     As Long
    Dim strPath As String
    Dim lngPos As Long
    
    ' Fill the item id list with the pointer of each folder item, rtns 0 on success
    If SHGetSpecialFolderLocation(0, sfidPROGRAMS, IDL) = NOERROR Then
        sPath = String$(255, 0)
        SHGetPathFromIDListA IDL, sPath

        lngPos = InStr(sPath, Chr&(0))
        If lngPos > 0 Then
            strPath = Left$(sPath, lngPos - 1)
        End If
        
    End If