SearchRec sale antes del termino

[Paulao]

Hizo una busca usando SearchRec. El que pasa es que quando el encuentra una carpeta vacia, el sale del loop Repeat..Until o While. Asi me lo hizo:

Código Delphi [-]
function Busca(Dir: TJvEditDirectory): Boolean;
var
 Sr. TSearchRec;
 I: Integer;
begin
  I := FindFirst(Dir.Directory + *.*, faAnyFile,SR);
  while I = 0 do
  begin
    if(SR.Name <> '.') and (SR.Name <> '..') then
      Llama_mi_funcion_para_mover_archivo;
  end;
  I := FindNext(SR);
end;

[x_aguilarf]

El código esta mal, el FindNext debe de estar dentro del bucle:

Código Delphi [-]
function Busca(Dir: TJvEditDirectory): Boolean;
var
 Sr. TSearchRec;
 I: Integer;
begin
  I := FindFirst(Dir.Directory + *.*, faAnyFile,SR);
  while I = 0 do
  begin
    if(SR.Name <> '.') and (SR.Name <> '..') then
      Llama_mi_funcion_para_mover_archivo;
    I := FindNext(SR);
  end;
end;

Saludos

[Paulao]

Si, y estas. Yo quando puzo esta Thread, puzo afuera, pero en el codigo esta hacia estas dentro. Este codigo no funciona, o sea, si tengo mas de una carpeta y una estas vacia, el sale de la busca.

[Paulao]

Resolvi. Tuvo que hacer de dos formas. Una buscando el archivo y otra las carpetas, llamando recursivamiente la misma procedure. Esto resolvio.