Fórum Buscar Arquivo dentro da pasta. #466866

procedure ListaArquivos(DiretorioInicial, Mascara:AnsiString; var ListaDeArquivos:TStrings; CaminhoCompleto:boolean=false; Subdiretorios:boolean=true);
var
  i: integer;
  listatemp: TStrings;

    procedure ListarDiretorios(Folder: AnsiString; lista: Tstrings);
    var
      Rec: TSearchRec;
      i: integer;
      temps: AnsiString;
    begin
      lista.Clear;
      if SysUtils.FindFirst(Folder + '*', faDirectory, Rec) = 0 then
      try
        repeat
          lista.Add(rec.Name);
        until SysUtils.FindNext(Rec) <> 0;
      finally
        if lista.count <> 0 then
        begin
          // deleta o diretorio ..
          lista.Delete(1);
          // deleta o diretorio .
          lista.Delete(0);
          i := 0;
          //deleta os arquivos isto e fica apenas os diretorios
          if lista.count <> 0 then
          begin
            repeat
              temps := lista.Strings[i];
              temps := extractfileext(temps);
              if temps <> '' then
                lista.Delete(i)
              else
                inc(i);
            until i >= lista.Count;
          end;
        end;
      end;
    end;
    procedure ListarAtahos(Folder, mask: AnsiString; Lista: Tstrings);
    var
      Rec: TSearchRec;
    begin
      lista.Clear;
      if SysUtils.FindFirst(Folder + mask, faAnyFile, Rec) = 0 then
      try
        repeat
          lista.Add(rec.Name);
        until SysUtils.FindNext(Rec) <> 0;
      finally
        SysUtils.FindClose(Rec);
      end;
    end;

    procedure AddLIstInOther(ListSource, ListDestino: TStrings);
    var
      f: integer;
    begin
      for f := 0 to ListSource.Count - 1 do
      begin
        ListDestino.Add(ListSource.Strings[f]);
      end;
    end;

begin
  DiretorioInicial := trim(DiretorioInicial);
  if DiretorioInicial[length(DiretorioInicial)] <> '\' then
    DiretorioInicial := DiretorioInicial + '\';
  listatemp := TStringList.Create;
  ListarAtahos(diretorioInicial, mascara, listatemp);
  if CaminhoCompleto then
  begin
    for i := 0 to listatemp.Count - 1 do
    begin
      listatemp.Strings[i] := diretorioInicial + listatemp.Strings[i];
    end;
  end;
  AddLIstInOther(listatemp, ListaDeArquivos);
  if SubDiretorios then
  begin
    ListarDiretorios(diretorioInicial, listatemp);
    for i := 0 to listatemp.Count - 1 do
    begin
      ListaArquivos(DiretorioInicial + listatemp.Strings[i] + '\', Mascara, ListaDeArquivos, CaminhoCompleto, SubDiretorios);
    end;
  end;
  listatemp.Free;
end;

Done := FindFirst(ExtractFilePath(ParamStr(0))+ '*.rtm',0,SRec);