Fórum Localização de Arquivo #151600

Em um Timer, adapte o seguinte código:

procedure TfExcluirArqTemp.ExcluirArquivos;
{------------------------------------------------------------------------------}
{Objetivo...: }
{Parâmetros.: }
{Analista...: José Mário Silva Guedes }
{Criado em..: 26/10/2002 }
{Modificado.: }
{------------------------------------------------------------------------------}
var
Pesquisa : TSearchRec;
Caminho : string;
begin
if (PD_BD_LOCAL = RetornarCaminhoBD)
then Exit;
Screen.Cursor := crHourGlass;
Animate1.Active := True;
Caminho := PD_BD_LOCAL + ´\´ + ´*_?????????????????.*´;
if (FindFirst(Caminho,0,Pesquisa) = 0)
then
begin
Label2.Caption := Pesquisa.FindData.cFileName;
Application.ProcessMessages;
DeleteFile(PD_BD_LOCAL + ´\´ + Pesquisa.FindData.cFileName);
end;
while (FindNext(Pesquisa) = 0) do
begin
Label2.Caption := Pesquisa.FindData.cFileName;
Application.ProcessMessages;
DeleteFile(PD_BD_LOCAL + ´\´ + Pesquisa.FindData.cFileName);
end;
FindClose(Pesquisa);
Animate1.Active := False;
Screen.Cursor := crDefault;
Timer1.Enabled := True;
end;