“Iterieren Sie alle Dateien in einem Ordner VBA” Code-Antworten

Iterieren Sie alle Dateien in einem Ordner VBA

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