tpage --define dirp=E:\dev\loose\ab --define tld=dirtree.com dirtree2.tt2 >dirtree2.html

##</code><code>##


<!--
Usage:
    tpage --define dirp=E:\dev\loose\ab --define tld=dirtree.com dirtree2.tt2 >dirtree2.html
-->
<table border=1>
<tr>
<td bgcolor="white">

<base href="dirtree.com"><br>
<a href="http://dirtree.com/">http://dirtree.com/</a><br>
<blockquote>
<font color="white">/</font><a href="/Qo">Qo</a>
<br>
<font color="white">/Qo/</font><a href="/Qo/ZZ">ZZ</a>
<br>
<font color="white">/Qo/</font><a href="/Qo/a">a</a>
<br>
<font color="white">/Qo/a/</font><a href="/Qo/a/s">s</a>
<br>
<font color="white">/</font><a href="/ro">ro</a>
<br>
<font color="white">/ro/</font><a href="/ro/ZZ">ZZ</a>
<br>
<font color="white">/ro/</font><a href="/ro/la">la</a>
<br>

</blockquote>
</td>
</tr>
</table>

##</code><code>##

<!--
Usage:
    tpage --define dirp=E:\dev\loose\ab --define tld=dirtree.com dirtree2.tt2 >dirtree2.html
-->
<table border=1>
<tr>
<td bgcolor="white">
[% USE dir = Directory(dirp) %]
<base href="[% tld %]">
<a href="http://[% tld %]/">http://[% tld %]/</a><br>
<blockquote>
[% INCLUDE showdir %]
</blockquote>
</td>
</tr>
</table>
[%- BLOCK showdir -%]
[%- RETURN UNLESS dir.dirs -%]
[%-     FOREACH item = dir.dirs -%]
<font color="white">[%- href -%]/</font><a href="[%- href -%]/[%- item.name -%]">[%- item.name -%]</a>
<br>
[%	    newhref = "$href/" _ item.name %]
[%- 	    item.scan -%]
[%- 	    IF item.dirs -%]
[%- 	        INCLUDE showdir dir=item href=newhref %]
[%- 	    END -%]
[%-     END -%]
[%- END -%]