get the name of sub dir

[sal21]

based this path:

"C:\Lavori_Vb6\COMUNI\STEMMI\"

how to retrieve the name of each subdir?

attached the structure

in my case are 20 subdir

[HansV]

Code: Select all

Sub ListSubfolders()
    Dim strFolder As String
    Dim strSubfolder As String
    ' Path must end in \
    strFolder = "C:\Lavori_Vb6\COMUNI\STEMMI\"
    strSubfolder = Dir(strFolder & "*.*", vbDirectory)
    Do While strSubfolder <> ""
        Select Case strSubfolder
            Case ".", ".."
                ' Skip these
            Case Else
                Debug.Print strSubfolder
        End Select
        strSubfolder = Dir
    Loop
End Sub

[p45cal]

or:

Code: Select all

Sub GetSubFolderNames()
Set fso = CreateObject("Scripting.FileSystemObject")
For Each MySubFolder In fso.GetFolder("C:\Lavori_Vb6\COMUNI\STEMMI").SubFolders
    Debug.Print MySubFolder.Name
Next MySubFolder
End Sub