[[Delphius]]

Disculpa roman... yo tengo que hacer algo parecido... buscar en subdirectorios algun tipo de archivo.... para ello hago lo siguiente:

Código Delphi [-]

procedure TForm1.RastreaDir(Dir: String;Tipo: String);
var
   FileSearch: TSearchRec;
begin
chDir(Dir);
if FindFirst('*.*',faDirectory,FileSearch)=0
   then begin
        Repeat
         if ((FileSearch.Attr and faDirectory) = faDirectory)
            then begin
                 if (FileSearch.Name <> '.') and (FileSearch.Name <> '..')
                     then begin
                            try
                            RastreaDir(Dir+'\'+FileSearch.Name,Tipo);
                            Except on Ex: Exception do
                            MessageBox(Handle,Pchar(Ex.Message),Pchar('Error'),MB_OK);
                            end;
                          end;
                 end
            else begin
                 if (AnsiUpperCase(ExtractFileExt(FileSearch.Name))) = Tipo
                    then begin
                         Memo1.Lines.Add(Dir+'\'+FileSearch.Name);
                         end;
                 end;
        Until FindNext(FileSearch) <> 0;
        FindClose(FileSearch);
        end;
end;

Pero no busca en todos los subdirectorios algunas veces... ¿que anda mal?