Ordner prüfen ob er leer ist

[Die Muhkuh]

Hi,

ich werfe mal diese Funktion in den Raum:

Delphi-Quellcode:

function IsDirectoryEmpty(Directory: String): Boolean;
var
  SR: TSearchRec;
begin
  Result := false;

  if FindFirst(Directory, faAnyFile, SR) = 0 then
  begin
    repeat
       Result := (SR.Name <> '.') and (SR.Name <> '..');
    until Result;

    FindClose(SR);
  end;
end;