遍历目录以及目录下文件的函数-ASP教程,FSO专题

<%@ 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 "

—"

　　　　　　　　response.write objfile.name

　　　　　　next

　　　　　　response.write "<p>"

　　　　　　bianli(nowpath)递归

　　　　　　

　　　　next

　　　　set objfolder=nothing

　　　　set objsubfolders=nothing

　　　　set fso=nothing

　　end function

%>

<%

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

%>