用递归算法实现ASP程序用fso对硬盘上某个路径下目录和文件的遍历

用递归算法实现asp程序对硬盘上某个路径下目录和文件的遍历

                        胡磊

由于工作需要，要做一个对硬盘上目录的遍历程序，因此想用asp来实现这个功能，

便写了一下这段程序。程序中主要用到asp的filesystemobject文件系统对象。可以

作为给希望了解和学习fso的朋友们的一个学习程序。

文件名称bianli.asp

<%@ language=vbscript %>
<%
    function bianli(path)
        dim fso            'fso对象
        dim objfolder      '文件夹对象
        dim objsubfolders  '子文件夹集合
        dim objsubfolder   '子文件夹对象
        dim objfiles       '文件集合
        dim objfile        '文件对象

        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("d:") '调用bianli()函数,这里是遍历d:盘
%>

以上程序在win2000 server上运行通过。