<style type="text/css">
body { font: 13px 'Courier New';}
b { background: #fea;}
i { background: #ffc;}
</style>
<script type="text/javascript">
// Egel 070210 ;)
function getFolderList(folderspec,askDir) {
var fso, f, fc, s = new Array(), name;
fso = new ActiveXObject('Scripting.FileSystemObject');
f = fso.GetFolder(folderspec);
fc = askDir ? new Enumerator(f.SubFolders) : new Enumerator(f.files);
for (; !fc.atEnd(); fc.moveNext()) {
name = '' + fc.item();
name = name.substring(name.lastIndexOf('\\') + 1);
s[s.length] = name;
};
return(s);
};
var dir = unescape(location.href);
dir = dir.substring(dir.lastIndexOf('//') + 2,dir.lastIndexOf('/') + 1).replace(/\//g,'\\');
var dirs = getFolderList(dir,true), files = getFolderList(dir);
document.writeln('<b>' + dir + '</b><br>');
document.writeln('<i>' + dirs.join('<br>') + '</i><br>');
document.writeln(files.join('<br>') + '<br>');
</script>