Localização de Arquivo

Delphi

03/04/2003

Olá amigos


Preciso criar um programa que procurase um arquivo em disco, caso ele ache mande uma mensagem para um usuário da rede, ele deverá fazer essa procura de 5 em 5 minutos.

alguém prode me ajudar ?


Vagner Silva - SP


Anonymous

Anonymous

Curtidas 0

Respostas

Marioguedes

Marioguedes

03/04/2003

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;


GOSTEI 0
POSTAR