LOOPING dir and retrieve files name....

[sal21]

C:\Lavori_Vb6\LEGGI_CSV_COMUNI\STEMMI\

in this dir have other sub dir, similar
\1
\2
\3
...
xx

in internal of each subdir have a files, i need a list of files with this format:

1-files.txt
1-prova.gif
ecc...

[HansV]

Code: Select all

Sub LoopSubDir()
    Const strPath = "C:\Lavori_Vb6\LEGGI_CSV_COMUNI\STEMMI\"
    Dim fso As Object
    Dim fld As Object
    Dim sfl As Object
    Dim fil As Object
    Dim strOutput As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fld = fso.GetFolder(strPath)
    For Each sfl In fld.SubFolders
        For Each fil In sfl.Files
            strOutput = sfl.Name & "-" & fil.Name
            Debug.Print strOutput
        Next fil
    Next sfl
End Sub

[sal21]

Code: Select all

Sub LoopSubDir()
    Const strPath = "C:\Lavori_Vb6\LEGGI_CSV_COMUNI\STEMMI\"
    Dim fso As Object
    Dim fld As Object
    Dim sfl As Object
    Dim fil As Object
    Dim strOutput As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fld = fso.GetFolder(strPath)
    For Each sfl In fld.SubFolders
        For Each fil In sfl.Files
            strOutput = sfl.Name & "-" & fil.Name
            Debug.Print strOutput
        Next fil
    Next sfl
End Sub

Great bro!