Вывести список всех каталогов и подкаталогов в данной директории

<?
/* Объявление */
$mas=array();
$name=array();
$i=0;
$act=1;
$act1=0;
$dir=opendir('Z:\home\localhost\www');
$mas[0]='Z:\home\localhost\www';
$name[0]='1.php';
print ' <UL>';
 
/* Будет активно пока i>=0, 1 раздел i=0 | 2 раздел i=2, вывел каталоги вернулся/пошел дальше... в итоге i--... i=-1*/
while($act==1) {
while($f=readdir($dir)){
/* Если Ф = имени на котором остановились(если переходили в глубь папки), то сл. файл и начинаем чтение*/
if ($f==$name[$i]) {$act1=1;$f=readdir($dir); }
if ($act1==1) {
 
 
print 'Glubina: '.$i.' || ';
 
print $f.'<br>';
 
/* Если = директории значит читаем эту директорию имя на котором остановились в массив, чтобы вернуться и продолжить */
if((is_dir($f))&&($f!='.')&&($f!='..')) {
print 'PAPKA obnarujena <br>';
$act=1;
$i++;
$mas[$i]=$f;
$name[$i-1]=$f;
$dir=opendir($f);
}
}
}
$act1=0;
/* Папки кончились переходим назад , продолжаем whilе */
$i=$i-1;
$dir=opendir($mas[$i]);
 
 
/* Если -1, значит папкам конец, можно заканчивать */
if ($i==-1) {$act=0;}
 
 
}
 
?>

if((is_dir($f))&&($f!='.')&&($f!='..')) {

<?
function PrintDirectoryTree($dir, $parent = 0)
{
    if ($parent == 0)
        echo "<ul>\r\n";
    echo "<li type='circle'>$dir</li>\r\n";
    echo "<ul type='disc'>\r\n";    
    $files = scandir($dir);
    foreach ($files as $v)
    {
        if ($v == "." || $v == "..")
            continue;
        $s = $dir."\\".$v;
        if (is_dir($s))
            PrintDirectoryTree($s, 1);
        else
            echo "<li>$v</li>\r\n";
    }
    echo "</ul>\r\n";
    if ($parent == 0)
        echo "</ul>\r\n";
}
 
PrintDirectoryTree("D:\web\apache\htdocs");