Função para anexar arquivos automáticamente

Delphi

16/01/2015

Bom dia gente! Preciso criar uma função que verifique quantos arquivos .xml tem em uma pasta.
Depois anexe um a um dos arquivos fazendo uma seleção deles.
Depois da seleção mova ele para uma pasta especifica conforme o resultado da seleção.
Sendo que o usuário precisa apenas informar o local dos arquivos.
Alguém tem alguma ideia de como fazer isso?
Viviane Almeida

Viviane Almeida

Curtidas 0

Melhor post

Renato Rubinho

Renato Rubinho

16/01/2015

Buenos,

Segue exemplo de localização dos arquivos. A partir desta lista, você pode fazer um loop para mover os arquivos para a outra pasta.

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;


Abraççç,
rrubinho
GOSTEI 1

Mais Respostas

Viviane Almeida

Viviane Almeida

16/01/2015

Obrigado RRubinho eu estarei testando e te aviso.
GOSTEI 0
POSTAR