Contar archivos

[ingmichel]

gracias hermano, probe tu funcion y funciona perfecto, k dios te bendiga..

Empezado por 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.

[ecfisa]

Gracias ingmichel , me alegro que te sirviera.


Saludos.