Dankeschön, aber genau das ist das Problem. Mein Prinzip ist ja dasselbe. Übrigens wird ja auch bei mir schon rekursiv gesucht
Delphi-Quellcode:
[...]
if FSubDirs Then DoSearch(InitDir + SR.Name + '\');
[...]
Das Hauptproblem ist nur, dass die Prozedur erst gar nicht durchlaufen wird, wenn eine entsprechende DAtei im STARTVERZEICHNIS nicht gefunden wurde.
Beispiel 1: Suchstart in D:\TEST mit Mask = '*.INI'
D:\TEST\TEST1.TXT
D:\TEST\TEST2.TXT
D:\TEST\TEST1.INI <--
D:\TEST\MYFILE.DAT
D:\TEST\TESTDIR\CONFIG.INI <--
dies funktioniert, da im Startverzeichnis eine .INI-DAtei vorhanden ist.
Beispiel 1: Suchstart in D:\TEST mit Mask = '*.INI'
D:\TEST\TEST1.TXT
D:\TEST\TEST2.TXT
D:\TEST\MYFILE.DAT
D:\TEST\TESTDIR\CONFIG.INI <-- wird nicht gefunden
dies funktioniert NICHT, da im Startverzeichnis KEINE .INI-DAtei vorhanden ist. Somit kommt die Prozedur erst gar nicht an den Punkt um die Verzeichnisse rekursiv aufzurufen.
SCRaT