gracias hermano, probe tu funcion y funciona perfecto, k dios te bendiga..
Cita:
Empezado por ecfisa
Hola ingmichel.
Una posibilidad es:
Código:
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:
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(NroArchivos('C:\')));
end;
Nota: Al parámetro "Ruta" hay que terminarlo con '\', por: Ruta + '*.*'
Saludos.
|