FileSearch nit Filterfunktion
02.11.2005 10:59:47
Matthias
ich habe ein kleines Makro, welches als solches funktioniert. Es werden alle Dateien mit dem Namen "CAD_*.xls" gesucht.
Nun soll es eine weitere Einschränkung (Filterung) geben: es sollen nur die Dateien gesucht und gefunden werden, die genau 15 zeichen lang sind (+Endung ".xls"). Wie kann ich im FileSearch diese weitere Einschränkung definieren?
Hier ein Ausschnitt meines Makros:
aordner = Cells(1, 2).Value ' z.B. c:\temp
files = Cells(2, 2).Value ' z.B. CAD_*.xls"
With Application.FileSearch
.Filename = files
.LookIn = aordner
.SearchSubFolders = True
.Execute
z1 = .FoundFiles.Count
....