قائمة مجلدات - نسخة قابلة للطباعة

كود :

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