Brauche QFileCtrls.dcu

[julchen]

Ich habe diese Funktion, die die Datei braucht:

Delphi-Quellcode:

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;

Wenn jemand einen anderen Lösungsvorschlag hat, dann her damit