Anzahl der Files in einem Verzeichnis ermittln

[Klaus01]

Delphi-Quellcode:

var
  searchResult : TSearchRec;
  i : Integer;
begin
  i:=0;
  // Try to find regular files matching *.* in the current dir
  if FindFirst('*.*', faAnyFile, searchResult) = 0 then
  begin
    repeat

      inc(i);

    until FindNext(searchResult) <> 0;

    // Must free up resources used by these successful finds
    FindClose(searchResult);


  end;
end;

oder mit dem Code von marabu:

Delphi-Quellcode:

// uses QFileCtrls; 
function CountFiles(filespec: string): integer; 
var 
  d: TDirectory; 
begin 
  d := TDirectory.Create(nil); 
  d.BeginUpdate; 
  d.FileMask := ExtractFileName(fileSpec); 
  d.Location := ExtractFilePath(fileSpec); 
  d.FileType := [ftArchive]; 
  d.EndUpdate; 
  Result := d.Count; 
  d.Free; 
end;

Grüße
Klaus

[edit] showMessage entfernt