删除文件夹func

function r_dir($dir)
{ //删除文件夹
//return array(ok[0|1],re_text)
$ok = true;
$how = '';
if (!is_dir($dir) ) //有子对象会出错
{
$how .= '指定要删除路径非法/或不存在';
$ok = false;
}else if (!is_writable($dir))
{
$how .= '指定文件夹无删除权限';
$ok = false;
}else if (!($dp = opendir($dir)))
{
$how.="删除文件夹时,获取文件夹句柄失败";
$ok = false;
}else
{
while (($file=readdir($dp)) != false)
{
if (($file!='.') && ($file!='..'))
{
if (is_dir($file))
{
$how.= r_dir($file);
} else if(!is_writable($dir.'/'.$file))
{
$how.=$dir."文件夹中的".$file.'无删除权限.<BR>';
$ok = false;
}else if(!unlink($dir.'/'.$file))
{
$how.='删除'.$dir."文件夹中的".$file.'出现未明错误.<BR>';
$ok = false;
}else
{
$how.='删除'.$dir."文件夹中的".$file.'完成.<BR>';
}
}
}
closedir($dp);

if(!rmdir($dir))
{
$how.='删除出现未明错误.<BR>';
$ok = false;
}else
{
$how.='删除完成.<BR>';
}

}

return array($ok,"删除[$dir]文件夹处理情况如下:<BR>$how<BR>");
}