Buscar por:

Deletando um diretório

Código

Procedure DelTree(const RootDir : String); 

var 

SearchRec : TSearchRec; 

begin 

Try 

ChDir(RootDir); {Caminho Especificado} 

FindFirst('*.*',faAnyFile,SearchRec); 

Erc := 0; 

while Erc = 0 do 

begin 

if ((SearchRec.Name <> '.' ) and (SearchRec.Name <> '..')) then 

begin 

if (SearchRec.Attr and faDirectory>0) then 

begin 

{Achou o diretório e ira apagar seus arquivos} 

DelTree(SearchRec.Name); 

end 

else 

begin 

{Achou um arquivo. Apagar ou não} 

end; 

end; 

Erc := FindNext (SearchRec); 

{ Erc igual a zero se o FindNext obtiver sucesso, senão erro do DOS} 

Application.ProcessMessages; 

end; 

finally 

if Length(RootDir) > 3 then 

ChDir('..'); 

end; 

end;