Contar archivos

[ecfisa]

Hola ingmichel.

Una posibilidad es:

function NroArchivos(const Ruta: string): Integer;
var
  SRec: TSearchRec;
  Attr, re: Integer;
begin
  Result:= 0;
  Attr:= faSysFile + faAnyFile + faArchive + faHidden + faReadOnly;
  re:= FindFirst(Ruta + '*.*' , Attr, SRec);
  while re = 0 do
  begin
    Inc(Result);
    re:= FindNext(Srec);
  end;
end;

Llamada:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(NroArchivos('C:\')));
end;

Nota: Al parámetro "Ruta" hay que terminarlo con '\', por: Ruta + '*.*'
Saludos.