كيف أجعل الـ ListBox تظهر أسماء المجلدات من خلال وضع لها منسار معين

السلام عليكم...

لماذا لا تستعمل المكون DirListBox فهو مخصص لعرض المجلدات و التنقل بينها، و تحدد لها المسار بالكود كالتالي:

Dir1.Path = Text1.Text

أما إذا كنت تريد استعمال ListBox تحديداً فالكود يكون كالتالي:

Private Sub Command1_Click()
    Dim AName As String
    Dim MyPath As String

    List1.Clear
    MyPath = Text1.Text
    If Right$(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
    AName = Dir$(MyPath, vbDirectory)
    Do While AName <> ""
        If (AName <> ".") And (AName <> "..") Then
            If (GetAttr(MyPath & AName) And vbDirectory) = vbDirectory Then
                List1.AddItem AName
            End If
        End If
        AName = Dir$
    Loop
End Sub

نرجو الاستفادة و السلام.

ألف شكرا لك اخي najy_zl

بارك الله فيك

وجزاك الله كل خير