Ураа! Спасибо огромное всем!
Действительно, если заменить последний li на ul, то всё супер!!!
Спасибо, парни! Вы меня очень выручили!
А вот, что исправить, чтобы папки были без адресов, а просто имена папок?
Ну и ul li лучше заменить на отступы "tab" (очень надо, а то начал менять - всё расползается)
(Добавление)
Вообще, я пишу в DevelStudio, поэтому код немного другой, но смысл практически тот же...
Выложу сюда финал с табами, может кому пригодится...
PHP:
скопировать код в буфер обмена
$addr = $progDir.'docs/';
// $addr = "C:/";
function fstree($dir, $vl=0) {
if ($vl < 0) { $mem = c("memo1")->text;
$mem = $mem."слишком глубоко ушли";
c("memo1")->text = $mem; };
//немного разметки
// echo $dir,":<br><ul>";
$mem = c("memo1")->text;
$mem = $mem.$dir."\n";
c("memo1")->text = $mem;
while (($file = readdir($dh)) !== false) { if ($file=='..' || $file=='.') continue;
// echo "<li>";
$mem = c("memo1")->text;
$mem = $mem.""; ///!
c("memo1")->text = $mem;
if (is_dir($dir."/".$file)) fstree
($dir."/".$file); // if (is_dir($file)) fstree($dir."/".$file,$vl-1); //уходим в рекурсию; честно, не помню, надо ли / вставлять
//а здесь выводим файлы директории
else {
$mem = c("memo1")->text;
$mem = $mem." ".$file.PHP_EOL;
c("memo1")->text = $mem; };
// echo $file,PHP_EOL;
// echo "</li>";
$mem = c("memo1")->text;
$mem = $mem.""; ///li
c("memo1")->text = $mem;
}
}
// echo "</li>";
$mem = c("memo1")->text;
$mem = "".$mem;
c("memo1")->text = $mem;
c("htmlView1")->html = $mem;
}
}
fstree($addr,2);