Fórum Como faço para assignfile aceitar o *.log #457186

procedure TForm1.Button1Click(Sender: TObject);
var
   iProcura : Integer;
   Arquivos: TSearchRec;
   Nome: String;
begin
     iProcura := FindFirst('C:\TEMP\*.log',faArchive,Arquivos);

     while iProcura = 0 do
     begin
          Nome := Arquivos.Name;

          // Procurar pelo conteúdo do arquivo
          // Mover o arquivo para a pasta de Destino.

          iProcura := FindNext(Arquivos);
     end;
     FindClose(Arquivos);
end;