欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

遍历目录以及目录下文件的函数

程序员文章站 2022-05-18 11:38:20
<%@ language=vbscript%> <%function bianli(path) set fso=server.createobject...
<%@ 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:盘
%>

--------------------------------------
很不错哦。