удалялка директорий

KLeN 28.12.2006 15:37

###########################################################################
# delete directory $sDir
# with $.is_recursive(1) - will delete all subdirectories
@dir_delete[sDir;hParam][tFileList]
^try{
	$tFileList[^file:list[$sDir]]
	^tFileList.menu{
		^if($hParam.is_recursive && -d "$sDir/$tFileList.name"){
			^dir_delete[$sDir/$tFileList.name;$hParam]
		}
		^if(-f "$sDir/$tFileList.name"){
			^file:delete[$sDir/$tFileList.name]
		}
	}
}{
	$exception.handled(1)
}
#end @dir_delete[]