asp遍历目录及子目录的函数分享

<%@ 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(“D:”) ‘遍历d:盘
%>

—-想了解更多的linux相关异常处理怎么解决关注<计算机技术网(www.ctvol.com)!!>