Findfirst...Findnext funktioniert nicht 100%ig

[scrat1979]

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