ayuda con numero de archivos a partir de ruta
 

Hola, estoy dandole vueltas a un codigo que parece sencillo a primera vista pero no hace lo que le pido. No da error ni de compilacion ni de ejecucion, pero no muestra lo que debería. El codigo es este...

Código Delphi [-]

...

function barra(cadena: string): string;
var
  i: integer;

begin

    for i:= 0 to length(form2.Edit1.Text) do  //---> BIEN
    if (form2.Edit1.Text[i]) = '\' then
      begin
        form2.Edit1.SetFocus;
        form2.Edit1.SelStart:= 0;
        form2.Edit1.SelLength:= i-1;
        form2.label1.Caption:= form2.edit1.SelText;
      end
end;


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;


procedure TForm2.Button1Click(Sender: TObject);
begin
  barra(edit1.Text);
  button1.SetFocus
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  label2.Caption:= IntToStr(nroArchivos(barra(edit1.Text)));
end;

end.

¿En label2.caption, no debería de aparecer el número de archivos que hay en la ruta indicada en label1.caption? Me dice que hay 2 archivos, pero en esa ruta "C:\hemy\prueba" hay actualmente 1695 archivos. ¿por que me devuelve 2?
Esto lo hago para calcular el maximo de una barra de progreso, pero como me da 2 (a veces 0) pues la barra ni se mueve.

¿Alguna sugerencia?
Saludos y gracias.

Os pongo una captura para que sea mas facil de entender lo que quiero conseguir...


La idea es que en label2.caption muestre el numero de archivos dado en la ruta de label1.caption.

Saludos.

Hola danielmj.

A ver si entendí lo que buscas...

Código Delphi [-]
function NroArchivos(aName: string): Integer;
var
  SR: TSearchRec;
begin
  Result := 0;
  aName  := IncludeTrailingPathDelimiter(ExtractFilePath(aName)) + '*.*';
  if FindFirst(aName, faAnyFile+faArchive+faHidden+faReadOnly, SR) = 0 then
  begin
    repeat
      Inc(Result);
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := 'C:\Windows\Explorer.Exe';  // valor de ejemplo
  Label1.Caption := Format('Cantidad de archivos: %d',[NroArchivos(Edit1.Text)]);
end;

Saludos :)

Hola ecfisa, gracias por responder, sí eso es exactamente lo que quiero conseguir, yo lo intentaba de otro modo y siempre me devolvía 0 o 2 (no sé por que el 2). Ahora lo probaré con el proyecto "oficial" a ver que tal.

Gracias y un saludo.