LOOP DIR and retrieve name of image

[sal21]

i need to loop only all dir in C:\Lavori_Vb6\LEGGI_CSV_COMUNI\STEMMI\

i can have this subdir:
1
2
3
...
20

now for each dir i need to list only a image file and retrieve the name of image file


note:
immagine.jpg is the possible list of dir
immagine1.jpg is the possible list of file of dir 1

[HansV]

I see that C:\Lavori_Vb6\LEGGI_CSV_COMUNI\STEMMI\1 has further subdirectories (AL, AT, ...)
Do you need to list the file names in those subdirectories too?

[sal21]

I see that C:\Lavori_Vb6\LEGGI_CSV_COMUNI\STEMMI\1 has further subdirectories (AL, AT, ...)
Do you need to list the file names in those subdirectories too?

SORRY...
no! only the first subdir
(AL, AT, ...) are a service dir

[HansV]

Code: Select all

Sub Test()
    Dim fso As Object
    Dim fld As Object
    Dim sfl As Object
    Dim fil As Object
    Set fso = CreateObject(Class:="Scripting.FileSystemObject")
    Set fld = fso.GetFolder("C:\Lavori_Vb6\LEGGI_CSV_COMUNI\STEMMI")
    For Each sfl In fld.SubFolders
        For Each fil In sfl.Files
            Debug.Print fil.Path ' or fil.Name
        Next fil
    Next sfl
End Sub

[snb]

Code: Select all

Sub M_snb()
  msgbox createobject("wscript.shell").exec("cmd /c dir C:\Lavori_Vb6\LEGGI_CSV_COMUNI\STEMMI\*.jpg /b/s").stdout.readall
Emd Sub

[sal21]

Code: Select all

Sub Test()
    Dim fso As Object
    Dim fld As Object
    Dim sfl As Object
    Dim fil As Object
    Set fso = CreateObject(Class:="Scripting.FileSystemObject")
    Set fld = fso.GetFolder("C:\Lavori_Vb6\LEGGI_CSV_COMUNI\STEMMI")
    For Each sfl In fld.SubFolders
        For Each fil In sfl.Files
            Debug.Print fil.Path ' or fil.Name
        Next fil
    Next sfl
End Sub

GREAT!
tks bro