Progressbar con TSearchRec

[Paulao]

Como pongo una Progressbar con TSearchRec? Quando se va a buscando los archivos o carpetas, mi gustaria de poner una progressbar, pero no se hacer asi. Con tablas, digo que progresbar.max = tabla.recordcount, desta forma el delphi hace todo lo resto y tenemos un tiempo exato para la bar. Pero con TSearchrec no lo se como hacer. pienso que poner un contador y incrementar haste el fin nos estas corecto. Como hago?

[ecfisa]

Hola Paulao.

Una posible solución es hacerte una función:

Código Delphi [-]
function TotalArchivos(const Ruta: string): Integer;
var
  SR: TSearchRec;
begin
  Result:= 0;
  if FindFirst(Ruta,$FF, SR) = 0 then
    repeat
      Inc(Result);
    until FindNext(SR) <> 0
end;

Y luego por ejemplo:

Código Delphi [-]
  ProgressBar1.Max:= TotalArchivos('C:\MiCarpeta\MisArchivos\*.*');

Saludos.