Hallo,
ich suche mit folgendem Code nach Textdateien in verschiedenen Ordnern. Nach dem ersten durchgang wird zwar der Variablenwert geändert, nicht jedoch der Wert in ".LookIn". Was muss ich ändern?
ordner = "C:\test\test2"
DO until zaehler kleiner 2
With Application.Filesearch
.NewSearch
.LookIn = ordner
.Filename = "*.txt"
If .Execute Then
MsgBox .FoundFiles(1)
End If
End With
ordner = "C:\dateien\"
zaehler = 1
Loop