圆月山庄资源网 Design By www.vgjia.com

<%@ Language=VBScript %>
<%
    function bianli(path)
        set fso=server.CreateObject("scripting.filesystemobject")   

        on error resume next
        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(nowpath)

' 递归方法.

        next
        set objFolder=nothing
        set objSubFolders=nothing
        set fso=nothing
    end function
%>
<%
    bianli("f:")

' 遍历F盘.
%>

标签:
|如何|何遍|遍历|历目|目录|录及|及目|目录|录下|下的|的文|文件|件?|?|

圆月山庄资源网 Design By www.vgjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
圆月山庄资源网 Design By www.vgjia.com