[RESOLVED] List all folders from a given directory

[RS_Arm]

Hello once again

I want to list all folders from a given directory. I've done this code but it only lists in one level and I want to list all levels.
Can you guys give help to make it work?

Public Sub ListDir(path As String)
Dim NameFolder As String
 
NameFolder = Dir(path, vbDirectory)
Do While NameFolder <> ""
    If NameFolder <> "." And NameFolder <> ".." Then
        If (GetAttr(path & NameFolder) And vbDirectory) = vbDirectory Then
            MainForm.MSHFlexGrid1.AddItem (path & NameFolder & "\")
            
        End If
    End If
    NameFolder = Dir
Loop
 
End Sub

Thank you

[gavio]

You'll have to do it with recursion. Here's an example

[RS_Arm]

It is exactly what I wanted.
Thank you very much.

[gavio]

Welcome