Fórum Função para anexar arquivos automáticamente #507469

var
  FindArquivos : TSearchRec;
  tsAux1         : TStringList;
begin
    tsAux1        := TStringList.Create;
    fn_caminho := 'c:\arquivosxml\';
    fn_Filtro      := '*.xml';
    if FindFirst(fn_Caminho + fn_Filtro, faArchive, FindArquivos) = 0 then
    begin
      if FindArquivos.attr <> 16 then
          tsAux1.Add(fn_Caminho + FindArquivos.Name);

      while FindNext(FindArquivos) = 0 do
        if FindArquivos.attr <> 16 then
          tsAux1.Add(fn_Caminho + FindArquivos.Name);
    end;
end;