Como excluir diretórios usando Delphi

[SubCash 0]

Em algumas situações nossas aplicações Delphi precisam remover diretórios. Isso pode ser feito com o auxílio da função RemoveDir() da unit SysUtils. Esta função recebe uma string representando o diretório a ser excluído e retorna um valor true se o diretório foi excluído com sucesso e false em caso contrário. Para que o diretório seja excluído com sucesso ele deverá estar vazio.

 

Veja um trecho de código no qual usamos a função RemoveDir() para remover um diretório:

 

procedure TForm1.Button1Click(Sender: TObject); var diretorio: String; begin // vamos excluir o diretório abaixo diretorio := 'C:\estudos_delphi\arquivo'; if RemoveDir(diretorio) then ShowMessage('Diretório excluído com sucesso.') else ShowMessage('Não foi possível excluir o diretório.'); end;

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.