leere Ordner Finden (mit Subdirs)

[Patrick]

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;