.LookIn-Wert lässt sich nicht ändern
02.10.2006 11:12:19
Wolfgang
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