Limpar diretório com Delphi, apagar todos os arquivos
[ads2]
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:
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.
[ads1]
Adorei o site, meus parabens!
Bacana o conteúde de Delphi. Podia postar mais!
Abraços!
Não funciona o comando porque muitas das vezes estes arquivos estão protegidos. So que na NET nao consegui nenhum exemplo que funcione e remova atributos. Para apagar uma pasta ela tem que estar vazia e ainda sem atributos.