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:盘
%>

« 
» 
快速导航

Copyright © 2016 phpStudy | 豫ICP备2021030365号-3