Ответ

mack 05.11.2003 12:02

@main[]
^getDir[/../]

@getDir[path][list]
$list[^file:list[$path;]] 
^list.menu{
	^if(-d "${path}$list.name"){
		<ul>
			<b>$list.name</b>
			<blockquote>^getFile[${path}$list.name/]</blockquote>
			^getDir[${path}$list.name/]
		</ul>
	}
}

@getFile[path][list]
$list[^file:list[$path;]]
^list.menu{
	^if(-f "${path}$list.name"){
		<li>$list.name</li>
	}
}