“Iterować wszystkie pliki w folderze VBA” Kod odpowiedzi

Iterować wszystkie pliki w folderze VBA

Dim StrFile As String
StrFile = Dir("c:\testfolder\*test*")
Do While Len(StrFile) > 0
Debug.Print StrFile
StrFile = Dir
Loop