Søge i undermapper

Jeg bruger følgende i en backup routine jeg har lavet.
List er en TListBox.

procedure TForm1.FindFiler(S: String);
var
  Sr : TSearchRec;
  FileAttrs : Integer;
begin
  FileAttrs := 0;  // 0 for filer, 16 for mapper
  if FindFirst(S + '*.*', FileAttrs, Sr) = 0 then
  begin  // Opdater med nye filer.
    repeat
      if (Sr.Attr and FileAttrs) = FileAttrs then
        if Sr.Name[1] <> '.' then  // Navnet på nuværende eller øvre mappe.
        begin
          List.Items.Add(Copy(S+Sr.Name, Length(Fra)+1, Length(S+Sr.Name)));
        end;
    until FindNext(Sr) <> 0;
    FindClose(Sr);
  end;
  FileAttrs := 16;  // 0 for filer, 16 for mapper
  if FindFirst(S + '*.*', FileAttrs, Sr) = 0 then
  begin  // Opdater med nye mapper.
    repeat
      if (Sr.Attr and FileAttrs) = FileAttrs then
        if Sr.Name[1] <> '.' then  // Navnet på nuværende eller øvre mappe.
        begin
          FindFiler(S + Sr.Name + '\');
        end;
    until FindNext(Sr) <> 0;
    FindClose(Sr);
  end;
end;

(S: String) i procedure hovedet er stien til den nuværende mappe.

Jeg lavede engang denne til at finde en enkelt fil, men den kan hurtig laves om til at f.eks. retunere alle txt filer i f.eks. en StringList:

function FindFile(StartPath, FileName : string) : string;

procedure SearchDir(Path : string);
var
  sr: TSearchRec;
  fr : integer;
begin
    fr:=FindFirst(Path+'*.*', faAnyFile, sr);
    while (Result='') and (fr=0) do
    begin
        if (sr.Attr and faDirectory>0) and (sr.name<>'.') and (sr.name<>'..') then
    begin
        if FileExists(Path+sr.Name+'\'+FileName) then
            Result:=Path+sr.Name
            else
            SearchDir(Path+sr.Name+'\');
    end;
        fr:=FindNext(sr);
    end;
    FindClose(sr);
end;

begin
    Result:='';
  SearchDir(StartPath);
end;

-----------
Kaldes sådan:
  Edit1.Text:=FindFile('c:\','HORZTITL.GIF');

Og de virker begge hvis der nu er flere undermapper?

Ja

En god gammel traver på Eksperten. Søger man i svarene, så finder man sikkert de første 10 implementeringer af en rekursiv søgerutine. Den gir' points hver gang.. :-)

Søren Riis. Skal du ikke lukke dit spørgsmål?