Tach,
Ich möchte einen Ordnerbaum durchsuchen. Und die Ordner, die leer sind, sollen aufgelistet werden. Das sollte so nicht schwer sein, also setze ich noch einen drauf: Wenn in einem Teilbaum alle Ordner leer sind, so will ich nur den "Wurzelordner" des Teilbaum s aufgelistet haben. In dem Teilbaum können so viel Ordner sein, wie was weis ich. Solange keine Datei dabei ist geht das klar.
Bisher habe ich das zusammengestückelt:
Delphi-Quellcode:
procedure ListEmptyDir(const Path: string; FileList : TStrings);
var SR : TSearchRec;
begin
if FindFirst(Path + '*.*', faDirectory, SR) = 0 then
begin
repeat
if (SR.Attr and faDirectory) <> 0 then
begin
if (SR.Name <> '.') and (SR.Name <> '..') then ListFileDir(Path+SR.Name+'\',FileList, subdir);
end
else if (SR.Attr = faDirectory) then FileList.Add(path+SR.Name);
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;