Don't know if this is what you're looking for, but I whipped this up some time ago when I was bored :
<%@ Language="VBScript" %>
<%
Sub folderDetails(folderName, indent)
Dim fSystem, fObject, fFolder, fFiles, fIndent, newIndent
fIndent = ""
newIndent...