Set fso = CreateObject("Scripting.FileSystemObject")

Sub foldrec(ThisFolder, idstr)
    response.write "var " & idstr & " = null;"
    response.write idstr & " = new MTMenu;"
    i = 0
    Set tmp = fso.GetFolder(ThisFolder)
    On Error Resume Next
    for each F in tmp.Subfolders
    	response.write idstr & ".MTMAddItem(new MTMenuItem(""" & F.name & _
			""", ""../file/showfolder.asp?folder=" & Server.URLEncode(F) & _
			""", ""text""));"
		' Recurse through subfolder:
        foldrec F, idstr & i
		' Add this folder to parent:
		response.write idstr & ".items[" & i & "].MTMakeSubmenu(" & _
			idstr & i & ");"
		i = i+1
    next
End Sub

foldrec "c:\", "menu"