Filesearch funktioniert nicht
Werner
Hallo Freunde,
versuche mit folgendem Makro die Dateien in einem Verzeichnis zu zaehlen:
Sub ZaehleInVerzeichnis
With Application.Filesearch
.NewSearch
.FileName = "*.xls"
.LookIn = "C:\"
.Execute
MsgBox .FoundFiles.Count
End With
End Sub
"Filesearch" nicht kennt, und das, obwohl die "Microsoft Scripting Runtime"-Bibliothek zugeschaltet
ist.
Woran kann das liegen? Vielleicht daran, dass der Indexing-Service meines Windows XP-Betriebssystems
abgeschaltet ist?
Dank für Hinweise! Beste Grüße Werner R.
End Sub