Progressbar con TSearchRec

[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.