В форму не получается. Держи архивом

Прикрепленные файлы:
PROFIWM_RU_252_72102_dir.zip (544 б)

Вот:
[in]function dirs($dr)
{
$dir .= $dr;
$indent = sizeof(explode(\"/\", $dir));
$hndl = opendir($dir) or die(\"Cant open directory\";

while(false !== ($str = readdir($hndl))) {
if(($str != \".\" && ($str != \"..\") {
$str = $dir.\"/\".$str;

if(is_dir($str)) {
++$all;
}
}

}
return $all;
}
$dir = \'system\'; // Папка
echo \'Папок в каталоге: \' . dirs($dir);[/in]

Edward, <?php
function dirs($dr)
{
$dir .= $dr;
$indent = sizeof(explode(\"/\", $dir));
$hndl = opendir($dir) or die(\"Cant open directory\";

while(false !== ($str = readdir($hndl))) {
if(($str != \".\" && ($str != \"..\") {
$str = $dir.\"/\".$str;

if(is_dir($str)) {
++$all;
}
}

}
return $all;
}

$dir = \'system\'; // Папка
echo \'Папок в каталоге: \' . dirs($dir);
?>