遍历文件夹:遍历目录以及目录下文件的函数

<%@ Language=VBScript %>
<%
  \'我写个遍历目录以及目录下文件
%>
<%
    function bianli(path)
         fso=server.CreateObject(\"scripting.filesystemobject\")   

        on error resume next
         objFolder=fso.GetFolder(path)
        
         objSubFolders=objFolder.Subfolders
        
        for each objSubFolder in objSubFolders
                        
            nowpath=path + \"\" + objSubFolder.name
            
            Response.Write nowpath

             objFiles=objSubFolder.Files

            for each objFile in objFiles
                Response.Write \"<br>---\"
                Response.Write objFile.name
            next
            Response.Write \"<p>\"
            bianli(nowpath)\'递归
            
        next
         objFolder=nothing
         objSubFolders=nothing
         fso=nothing
    end function
%>
<%
    bianli(\"d:\") \'遍历d:盘
%>
       

延伸阅读

• 2011-9-20-- vc遍历文件夹,遍历SPWeb下的文件库文件夹和文件
• 2010-12-9-- php遍历目录,php遍历目录viewDir函数
• 2010-12-9-- 遍历文件夹,php实现的遍历文件夹下所有文件，编辑删除
• 2010-12-9-- 遍历文件夹,php visitFile（）遍历指定文件夹函数
• 2010-12-27-- php遍历目录,浅析PHP程序中的目录遍历漏洞
• 2010-11-24-- java遍历目录,用LINQ遍历目录(原创)
• 2009-9-12-- 遍历目录:FSO遍历目录实现全站插马
• 2009-1-9-- C#使用API函数来遍历文件和目录
• 2009-9-12-- 目录遍历漏洞:入侵检测PHP程序中的目录遍历漏洞
• 2009-9-28-- c语言遍历目录:C#遍历目录