DateiAttribute aus ListBox auslesen

[Tpercon]

Erstens hat Sakura in der Code Library schon mal nen passenden Code gepostet und zweitens ist ja wohl diese Zeile
UnterordnerDurchsuchen (ext,pfad + '\' + sr.Name); fürs rekursive durchsuchen verantwortlich.

Also änder die in die folgenden Zeilen:

Delphi-Quellcode:

if CheckBox1.Checked then begin
  UnterordnerDurchsuchen (ext,pfad + '\' + sr.Name); 
end;

Das müßte theoretisch funktionieren.