| admin |  |  | 积分:73146 等级:网站管理员 文数:13451 注册:2004-7-20 |
| 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 " Bianli(nowpath)'递归 Next Set Objfolder=nothing Set Objsubfolders=nothing Set Fso=nothing End Function
Bianli("D:") '遍历d:盘 %>
该文章在 2022/6/21 23:22:50 编辑过
|