Como deletar todos os arquivos de um diretório? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como deletar todos os arquivos de um diretório?

 

Com está função fica fácil limpar qualquer diretório.

Segue o código fonte da função:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function ClearDirectory(aDirectory : String) : Boolean;
var
  SR: TSearchRec;
  I: integer;
begin
  I := FindFirst(aDirectory + '*.*', faAnyFile, SR);
  while I = 0 do
  begin
    if (SR.Attr and faDirectory) <> faDirectory then
    begin
      if not DeleteFile(PChar(aDirectory + SR.Name)) then
      begin
        Result := False;
        Exit;
      end;
    end;
 
    I := FindNext(SR);
  end;
 
  Result := True;
end;

Exemplo de uso:

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ClearDirectory('D:\teste\') then
    ShowMessage('Diretório limpo com sucesso')
  else
    ShowMessage('Não foi possível limpar o Diretório !');
end;

Veja que é importante ter a “\” no fim do diretório.

Facebook Comments

Posts Relacionados

  • Administrador
  • 501 views
  • 0 comentários
  • 17 de abril de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados