[ناجي إبراهيم]

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

كود :

Private Sub GetFolders(ByVal APath As String, AListBox As ListBox)
    Dim AFolder As String
    
    If Right$(APath, 1) <> "\" Then APath = APath & "\"
    
    AFolder = Dir$(APath, vbDirectory)
    If AFolder <> "" Then
        Do
            If (AFolder <> ".") And (AFolder <> "..") Then
                If (GetAttr(APath & AFolder) And vbDirectory) = vbDirectory Then
                    AListBox.AddItem AFolder
                End If
            End If
            AFolder = Dir$
        Loop While AFolder <> ""
    End If
End Sub

Private Sub Command1_Click()
    ' مثلاً:
    GetFolders "E:\VB 6 Apps", List1
End Sub

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