Como faço para assignfile aceitar o *.log

Delphi

01/10/2013

Amigos, o meu programa ele move arquivos .log se ele ter determinada frase, isso está funcionando perfeitamente, entretanto ele faz de um em um arquivo, e são muitos arquivos, o meu, como eu posso fazer para que o comando assignfile aceite o *.log e verifique todos de uma vez ?
Lucas Garcia

Lucas Garcia

Curtidas 0

Respostas

Marcos Oliveira

Marcos Oliveira

01/10/2013

Lucas, você terá que procurar todos os arquivos primeiro, para depois dar o AssignFile, e posteriormente movê-los.
O código abaixo mostra como procurar os arquivos. Depois é só você incorporar à esta rotina, o processo para ler e mover os arquivos.

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;


Att,

Marcos
GOSTEI 0
POSTAR