F�rum Busca por nome de arquivo #586866

18/10/2017

Pessoal,

Tenho v�rios arquivos pdf dentro de uma pasta que chama 'Scanner', preciso que ao salvar no sistema, pesquise os arquivos que tenha no nome o valor de uma vari�vel e copie e crie uma pasta com essa vari�vel.
Vari�vel = 12345.
exemplos de nomes de arquivos: CLI000012345-Contrato.pdf, CLI000012345-Ficha.pdf.
existem milhares de arquivos em pdf dentro da pasta, tem como pesquisar o arquivo que tenha no nome a variavel 12345 e copiar todos eles criando uma pasta com o valor da variavel?
Obrigado

Enzo Mateus

Curtir t�pico

+ 0

Responder

Posts

25/01/2018

Jerson Boer

Ol� Enzo, veja se essa fun��o te ajuda:

Adicione um listbox na tela e use a com:

lstArquivos.Items := GetFileList('C:\\CaminhoArquivos\\*12345*.pdf');

Basta adapta-la � sua necessidade, dando um loop nos resultados recebidos e movendo-os � pasta criada.

function TfrmTelaTeste.GetFileList(const Path: string): TStringList;
var
  I: Integer;
  SearchRec: TSearchRec;
begin
  Result := TStringList.Create;
  try
    I := FindFirst(Path, 0, SearchRec);

    while I = 0 do
      begin
        Result.Add(SearchRec.Name);
        I := FindNext(SearchRec);
      end;
  except
    Result.Free;
    raise;
  end;
end;

Responder

Gostei + 0