Anzahl der Files in einem Verzeichnis ermittln

[Klaus01]

Delphi-Quellcode:

function TProgramm.GetFiles() : String; 
  var s : TSearchRec; 
      i : Integer; 
begin 
  if FindFirst(GetPath + '*.*', faAnyFile, s) = 0 then 
    begin 
      i:=0; // hier setzt Du die Anzahl auf 0 obwohl schon eine Datei gefunden wurde
      repeat 
        Inc(i); 
      until FindNext(s) <> 0; 
      Result:=IntToStr(i - 2) // weil bei faAnyFile auch . und .. mitgezählt werden
    end; 
end;

wenn Du anstelle von faAnyFile faArchive verwendest sollte es korrekt zählen.

Grüße
Klaus