Ответ

max_rip 21.10.2010 02:14

@deleteDir[path][sPath;tFileList]
 $sPath[path]
 $tFileList[^file:list[sPath]]
  ^if($tFileList>0){
   ^tFileList.menu{
    ^if(-d $sPath/$tFileList.name){
     ^deleteDir[$sPath/$tFileList.name]
    }{
     ^file:delete[$tFileList.name]
    }
   }
  }

Писалось на коленки, не уверен в правильности, но имхо более правильно будет сделать
^file::exec[rm;;-rf;путь](это для линуха)

---