Опись папок

[alex-kabachkoff.livejournal.com]

День добрый!
Подскажите, пожалуйста, как получить в текстовый (или какой другой) файл список всех папок и подпапок на диске или в какой-то определенной папке? Список должен включать все подпапки (файлы не нужны), т.е. быть иерархическим, соответственно, стандартные ДОСовские инструменты, как я понимаю, не прокатят.
Как же быть?
Заранее спасибо!

P.S. Операционка - Windows 2000 или XP

Comments

[haviras.livejournal.com]

--------------
filetype: ";
echo "folder ";
echo $path;
echo "/
";
echo "
--------------
";}
if($e==false) {
echo "
--------------
filetype: ";
echo "file";
echo "
--------------
";}
//-------

$nb="      ";




Function Func1 ($path)
{

$e=opendir($path);
while ($file = readdir($e)) {
$b=is_dir($path);


// echo $path; // путь к каталогу, введен пользователем

//echo $file; // выводим содержимое каталога path
$a = $path."/".$file; //складываем путь
if($file=='.')
{
echo $a;
}
/* echo "";

echo "";*/
$b=is_dir($a); //проверка нового пути на директорию
if($b==0)
{

echo "";
echo "            ";

echo $a;
echo "";

}
else
{
if($file!='.'&&$file!='..')
{
echo $a;
//FuncPlaceHere
$s=opendir($a);
while ($file1 = readdir($s))
{

echo "
";
echo "";
$a1 = $a."/".$file1; //складываем путь
echo "";
$b1=is_dir($a1); //проверка нового пути на директорию


if($b1==0)
{ echo "";
echo "            ";
//echo $nb;

echo $file1; // выводим содержимое каталога
echo "";

}
else
{
if($file1!='.'&&$file1!='..')
{
Func1 ($a1);
}
}
}

}
}
echo "
";
}
closedir($e);

}


Func1 ($path);

?>


Это php скрипт

А это HTML страница к нему:

path