aspÄÜÅúÁ¿ÉÏ´«±¾µØÎļþ¼ÐÀïµÄËùÓÐͼƬµ½·þÎñÆ÷Âð£¿

ÈçÌâ¡£¿ÉÒԵĻ°¸ø¸ö´úÂë¿´ÏÂ

---

¸ßÊÖ°ïæÏÂ

<%@ Language=VBScript %>
<%
    function bianli(path)
        dim fso
        dim objFolder
        dim objSubFolders
        dim objSubFolder
        dim objFiles
        dim objFile
        set fso=server.CreateObject("scripting.filesystemobject")   
        set objFolder=fso.GetFolder(path)
        set objSubFolders=objFolder.Subfolders
        for each objSubFolder in objSubFolders
            nowpath=path + "\" + objSubFolder.name
            Response.Write nowpath
            set objFiles=objSubFolder.Files
            for each objFile in objFiles
                Response.Write " <br>---"
                Response.Write objFile.name
            next
            Response.Write " <p>"
            bianli(no