Dateianzahl ermitteln

[Sanchez]

hi,

z.B. so:

Delphi-Quellcode:

function FileCount(_ordner : string): integer;
var files    : TSearchRec; 
    count : integer
begin
  count := 0;
  if FindFirst(ordner + '\*.*',faAnyFile or faDirectory, files) = 0 then begin
    repeat
      if (files.Attr and faDirectory) = faDirectory then begin
     count := count + FileCount(_ordner + '\' + files.Name);
   end else begin
        count := count + 1;
      end;
    until FindNext(files) <> 0;
    FindClose(files);
  end;
  result := count;
end;

Das ist ein ungetesteter Ansatz. Evtl passt da irgendwas noch nicht

grüße, daniel