[Neftali [Germán.Estévez]]

Bueno no es muy difícil realizar una función recursiva que te busque en los directorios y en sus Subdirectorios; Aquí tienes un ejemplo:

Código Delphi [-]
procedure FindFiles(StartDir, FileMask: string; recursively: boolean; var FilesList: TStringList);
var
  SR: TSearchRec;
  DirList: TStringList;
  IsFound: Boolean;
  i: integer;
begin
  if StartDir[length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
  { Build a list of the files in directory StartDir
     (not the directories!)                         }
  IsFound :=
    FindFirst(StartDir + FileMask, faAnyFile - faDirectory, SR) = 0;
  while IsFound do
  begin
    FilesList.Add(StartDir + SR.Name);
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);
  // Recursivo?
  if (recursively) then begin
    // Build a list of subdirectories
    DirList := TStringList.Create;
    IsFound := FindFirst(StartDir + MASK_ALL_FILES, faAnyFile, SR) = 0;
    while IsFound do
    begin
      if ((SR.Attr and faDirectory) <> 0) and
        (SR.Name[1] <> CHAR_POINT) then
        DirList.Add(StartDir + SR.Name);
      IsFound := FindNext(SR) = 0;
    end;
    FindClose(SR);
    // Scan the list of subdirectories
    for i := 0 to DirList.Count - 1 do
      FindFiles(DirList[i], FileMask, recursively, FilesList);
    DirList.Free;
  end;
End;