http://www.parser.ru/examples/autoindex/

Janek 24.03.2008 23:20 / 25.03.2008 12:23

там много сообязительного кода...

вы можете тоже пользоваться етой методой:

@loadTree[sDir][tDirectories;tList;thisDir]
$result[^hash::create[]]

$tList[^file:list[$sDir]]
$tDirectories[^table::create{name}]

^tList.menu{
$thisDir[${sDir}$tList.name]
^if(-d $thisDir){^tDirectories.append{$thisDir}}
}

^tDirectories.menu{
$result.[$tDirectories.name/][^if(^tDirectories.count[] > 0){^loadTree[$tDirectories.name/]}]
}

---