كيف اتعامل مع الفولدرات(المجلدات)

اخى الفاضل جرب هذه الوظيفة التى تمكنك من تحميل اسماء مجلدات أى مسار الى ليست بوكس

Public Function LoadPathFolders(strPath As String, Obj As Object, Optional ObjClear As Boolean = True)
On Error GoTo Handle:
Dim strFolder As String
Dim Attr As Integer
If ObjClear = True Then Obj.Clear
If Len(strPath) = 2 And Right(strPath, 1) <> "\" Then strPath = strPath + "\"
If Len(strPath) = 1 Then strPath = strPath + ":\"
If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
strFolder = Dir(strPath, vbDirectory + vbArchive + vbHidden + vbNormal + vbReadOnly + vbSystem)
Do While strFolder <> ""
    If strFolder <> "." And strFolder <> ".." Then
        Attr = GetAttr(strPath & strFolder)
        If Attr = 16 Or Attr = 48 Or Attr = 18 Or Attr = 17 Or Attr = 22 Or Attr = 20 Or Attr = 19 Or Attr = 50 Or Attr = 49 Or Attr = 51 Then
            Obj.AddItem strFolder
        End If
    End If
    strFolder = Dir
Loop
Exit Function
Handle:
MsgBox Error, , App.Title
End Function

وبالنسبة لطلبك اجعل strPath هو A:\ و Obj هو ليست بوكس وان شاء الله ستجد ماتريده :rolleyes:

شكرا لك اخي ghost على جهدك جاري التجربة

طيب ممكن اخي ghost تشرح السطر 14 و 15

وشكرا لك مرة اخرى