删除目录和目录下得所有文件和文件夹

procedure   DeleteDir(sDirectory:   String);  
  //删除目录和目录下得所有文件和文件夹  
  var  
      sr:   TSearchRec;  
      sPath,sFile:   String;  
  begin  
      //检查目录名后面是否有   '/'  
      if   Copy(sDirectory,Length(sDirectory),1)   <>   '/'   then  
          sPath   :=   sDirectory   +   '/'  
      else  
          sPath   :=   sDirectory;  
   
      //------------------------------------------------------------------  
      if   FindFirst(sPath+'*.*',faAnyFile,   sr)   =   0   then  
      begin  
          repeat  
              sFile:=Trim(sr.Name);  
              if   sFile='.'   then   Continue;  
              if   sFile='..'   then   Continue;  
   
              sFile:=sPath+sr.Name;  
              if   (sr.Attr   and   faDirectory)<>0   then  
                  DeleteDir(sFile)  
              else   if   (sr.Attr   and   faAnyFile)   =   sr.Attr   then  
                  DeleteFile(sFile);                                                 //删除文件  
          until   FindNext(sr)   <>   0;  
          FindClose(sr);  
      end;  
      RemoveDir(sPath);  
      //------------------------------------------------------------------  
  end;