How to traverse the directory and files under the directory?

<%@ Language=VBScript %>
<%
    function bianli(path)
        set fso=("")   

        on error resume next
        set objFolder=(path)

        set objSubFolders=
        for each objSubFolder in objSubFolders
            nowpath=path + "\" +
            nowpath
            set objFiles=

            for each objFile in objFiles
                "<br>---"
               
            next
            "<p>"
            bianli(nowpath)