Mendapatkan Special Folder Menggunakan Visual Basic 6.0

Public Enum SpecialFolderIDs 
    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 
    Dim sPath   As String 
    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