Unnamed

public text v1 · immutable

#410753

·published 2007-03-26 17:08 UTC

procedure ApagaPasta(pasta: string);
var
  Arquivo: TSearchRec;
begin
  if FindFirst(pasta+'*.*', 0, Arquivo) = 0 then
  begin
    repeat
      DeleteFile(pasta+Arquivo.Name);
    until FindNext(Arquivo) <> 0;
    FindClose(Arquivo);
  end;
  if (RemoveDir(pasta) = TRUE) then
    showmessage('Pasta apagada com sucesso!')
  else
    showmessage('Falha ao apagar a pasta');
end;