Apagar todos os arquivos de uma determinada pasta ?
Galera
Estou tentando desenvolver uma aplicação que tem o seguinte objetivo (naum maléfico) apagar arquivos de uma determinada pasta.
Estou precisando especificadamente de apagar a pasta content.ie5 da pasta windows\temporary Internet Files\, esta pasta mantem as navegações feitas e infelizmente, alguns adwares se instalam nesta pasta e ai começa os problemas, que todos conhecem, então pretendo fazer uma aplicação, conforme a programação de dia da semana e horario, entrar nesta pasta e eliminar os dados contido nela.
Fazer a programação de data e hora até que eh facil, mas entrar la e apagar os dados lá que esta sendo o problema.
Assim que estiver pronto e testado vou estar publicando aqui no forum, se alguem se interessar, passarei codigo fonte para ser aperfeiçoado.
Grato a todos.
Objetiva Creator.
Estou tentando desenvolver uma aplicação que tem o seguinte objetivo (naum maléfico) apagar arquivos de uma determinada pasta.
Estou precisando especificadamente de apagar a pasta content.ie5 da pasta windows\temporary Internet Files\, esta pasta mantem as navegações feitas e infelizmente, alguns adwares se instalam nesta pasta e ai começa os problemas, que todos conhecem, então pretendo fazer uma aplicação, conforme a programação de dia da semana e horario, entrar nesta pasta e eliminar os dados contido nela.
Fazer a programação de data e hora até que eh facil, mas entrar la e apagar os dados lá que esta sendo o problema.
Assim que estiver pronto e testado vou estar publicando aqui no forum, se alguem se interessar, passarei codigo fonte para ser aperfeiçoado.
Grato a todos.
Objetiva Creator.
Objetivacreator
Curtidas 0
Respostas
Reginaldo174
03/11/2004
procedure TForm1.Button2Click(Sender: TObject);
var
SR: TSearchRec;
I: integer;
begin
I := FindFirst(´c:\Delphi\*.*´, faAnyFile, SR);
while I = 0 do begin if (SR.Attr and faDirectory) faDirectory then
if not DeleteFile(´c:\Delphi\´ + SR.Name) then ShowMessage(´Não foi possível excluir c:\Delphi\´ + SR.Name);
I := FindNext(SR);
end;
end;
// Os arquivos excluídos com esta rotina não vão para a lixeira
var
SR: TSearchRec;
I: integer;
begin
I := FindFirst(´c:\Delphi\*.*´, faAnyFile, SR);
while I = 0 do begin if (SR.Attr and faDirectory) faDirectory then
if not DeleteFile(´c:\Delphi\´ + SR.Name) then ShowMessage(´Não foi possível excluir c:\Delphi\´ + SR.Name);
I := FindNext(SR);
end;
end;
// Os arquivos excluídos com esta rotina não vão para a lixeira
GOSTEI 0