Hallo!!
Habe noch einen kleinen Bug gefunden und diesmal gelöst (glaube ich
)
Sobald man jetzt bei der Suche sich nur auf eine Dateiendung beschränkt (z.B.: Mask = *.mp3), und Recurse auf True setzt, werden keine Dateien ausgelesen (da nach Verzeichnissen mit der Mask-Endung *.mp3 gesucht wird).
Hier der verbesserte Teil (die zweite Zeile). Ich hoffe es ist richtig.
Code:
if Recurse then
if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then
try
repeat
if SR.Attr and faDirectory = faDirectory then
// --> ein Verzeichnis wurde gefunden
// der Verzeichnisname steht in SR.Name
// der vollständige Verzeichnisname (inkl. darüberliegender Pfade) ist
// RootFolder + SR.Name
if (SR.Name <> '.') and (SR.Name <> '..') then
FindAllFiles(RootFolder + SR.Name, Mask, Recurse);
until FindNext(SR) <> 0;
finally
FindClose(SR);
end;
Noch mal Thanx!
Grüße!!
Tomektor