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
