Office: 377.000 Dateinamen mit VBA durchsuchen

Hallo VBA-Freunde.

Ich stehe vor folgender Aufgabe:

In einem Verzeichnis liegen etwas über 377.000 Dateien, deren Dateinamen ich nach einer Zeichenkette durchsuchen muss.
Wenn die Zeichenkette gefunden wurde soll die Datei in einen OK-Ordner verschoben werden und die Zeichenkette und der Dateiname in Excel dokumentiert werden. Wurde die Zeichenkette nicht gefunden soll die Datei in einen Fehlt-Order verschoben werden ohne Dokumentation in Excel.

Die Zeichenkette die ich finden soll, sieht wie folgt aus:

Die ersten zwei Zeichen können zwölf Ausprägungen haben und bestehen dabei aus zwei Buchstaben. Danach folgen vier bis neun
Ziffern. Wobei die zwölf Ausprägungen keine Rückschlüsse über die Anzahl der folgenden Ziffern zu lassen.
Bsp. AB1234567, AB1234, CD123456789, EF1234

Ich frage mich, bei der recht großen Anzahl an Dateien, wie ich das am performantesten angehen kann.
Wenn man das überschlägt und davon ausgeht, dass man innerhalb von 1 Min; 4 Dateinamen durchsucht, verschiebt und ggf. dokumentiert. Dann Läuft das Makro immerhin 26 Stunden.

Meine erste Idee:
Jeden Dateinamen einzeln einlesen, durchkauen ob eine passende Zeichenkette vorhanden ist. (ggf. in Excel dokumentieren wenn eine passende Zeichenkette gefunden wurde) und verschieben.

Meine zweite Idee:
Die Dateinamen in Excel einlesen z.B. in 30.000er Happen und dann die Spalte mit den Dateinamen Zeile für Zeile durchkauen. (ggf. in Excel dokumentieren wenn eine passende Zeichenkette gefunden wurde) und verschieben.

Meine dritte Idee:
Die Dateinamen mittels einer Batchdatei in eine txt schreiben und die txt, Zeile für Zeile durcharbeiten. (ggf. in Excel dokumentieren wenn eine passende Zeichenkette gefunden wurde) und verschieben.

Programmieren werde ich das sicher selbst können, nur die Herangehensweise ist mir noch nicht klar.
Hat jemand vielleicht eine zündende Idee wie man die Sache am besten angeht?

Vielen Dank für eure Anregungen
und viele Grüße
Sven

 

Hallo sven78hh,

wenn's ein einmaliger Vorgang ist, würde ich in einer Schleife ganz normal Dir() verwenden, den Dateinamen extrahieren und auf die Zeichenketten am Anfang via Left() und weitere Inhalte im Dateinamen via LIKE prüfen. Kopieren ging dann über FileCopy, Löschen über Kill. Sollte m.E. nicht allzu lange dauern. Falls das nicht schnell genug ist, bliebe Windows API, was aber komplizierter ist.

Gruß

 

Hallo maninweb,

vielen dank für deinen Vorschlag. Das läuft soweit ganz gut. Vor allem der hinweis mit like hat mir sehr geholfen. Das kannte ich bei VBA noch nicht. Inzwischen habe ich aus 190.000 Dateinamen die Informationen gezogen die ich Brauche.

Nun will ich versuchen aus den Restlichen Dateien Informtaionen zu ziehen. (Da die Informationen nicht im Dateinamen enthalten sind)

Die Dateien sind MSG-Dateien. Es handelt sich also um Outlook Mails die auf einem Laufwerk ausgelagert wurden.

Ich habe dafür aber ein neues Thema erstellt, da der Titel dieses Themas nicht mehr passt.
http://www.office-hilfe.com/support...ner-msg-Datei-durchsuchen?p=137895#post137895


Gruß
Sven