Categorias Limpar diretório com Delphi, apagar todos os arquivos

terça-feira, 19 de julho de 2016

Limpar diretório com Delphi, apagar todos os arquivos

Postado Por: Davi Barros 00:02 Deixe uma Comentario

Olá a todos, apagar todos os arquivos de uma determinada pasta com Delphi é bem simples, e você pode usar este código em diversas situações.

Para iniciar crie um projeto delphi e adicione um botão a ele, no evento onclick do botão crie duas variáveis, veja:

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm3.Button1Click(Sender: TObject);
var
i: integer;
sr: TSearchRec;
begin
I := FindFirst('C:\arquivos\*.*', faAnyFile, SR);
while I = 0 do
begin
  DeleteFile('C:\arquivos\' + SR.Name);
  I := FindNext(SR);
end;
end;

Hoje é só isso pessoal, até a próxima!
Qualquer dúvida deixe um comentário ou entre em contato conosco.

0 comentários: