Busca por nome de arquivo

Delphi

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

Enzo Mateus

Curtidas 0

Respostas

Jerson Boer

Jerson Boer

18/10/2017

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;
GOSTEI 0
POSTAR