ASP，FSO遍历目录及目录下文件ASP教程 -电脑资料

    fso|遍历|遍历目录

    <%

    '我写的一个遍历目录以及目录下文件的函数，

    %>

    <%

    function bianli(path)

    set fso=server.CreateObject("scripting.filesystemobject")

    on error resume next

    set bjFolder=fso.GetFolder(path)

    set bjSubFolders=objFolder.Subfolders

    for each objSubFolder in objSubFolders

    nowpath=path + "\" + objSubFolder.name

    Response.Write nowpath

    set bjFiles=objSubFolder.Files

    for each objFile in objFiles

    Response.Write "
---"

    Response.Write objFile.name

    next

    Response.Write "

"

    bianli(nowpath)'递归

    next

    set bjFolder=nothing

    set bjSubFolders=nothing

    set fso=nothing

    end function

    %>

    <%

    bianli("d:") '遍历d:盘

    %>