borrar archivos y subdirectorios

[mierda]

varios ejemplos:

Código Delphi [-]
 
RmDir('c:\directorio\');
if IOResult <> 0 then 
     MessageDlg('No he podido borrar el directorio', mtWarning, [mbOk], 0);

otro

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
          var 
            DirInfo: TSearchRec;
            r : Integer;
          begin 
            r := FindFirst('C:\Download\Test\*.*', FaAnyfile, DirInfo);
            while r = 0 do  begin 
              if ((DirInfo.Attr and FaDirectory <> FaDirectory) and 
                  (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then 
                if DeleteFile(pChar('C:\Download\test\' + DirInfo.Name))
                   = false then 
                 {Si no puede borrar el fichero}  
                 ShowMessage('Unable to delete : C:\Download\test\' +
                             DirInfo.Name);
              r := FindNext(DirInfo);
            end; 
            SysUtils.FindClose(DirInfo);
            if RemoveDirectory('C:\Download\Test') = false then 
              {Si no puedes borrar el directorio}
              ShowMessage('Unable to delete dirctory : C:\Download\test');
          end;

si necesitas alguno mas ... por ahi tengo mas