ASP,FSO遍历目录及目录下文件
程序员文章站
2022-07-01 23:50:17
<%@ language=vbscript %>
<%
'我写的一个遍历目录以及目录下文件的函数,
%>
<%
functio...
<%@ 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:盘
%>
<%
'我写的一个遍历目录以及目录下文件的函数,
%>
<%
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:盘
%>
上一篇: ASP常用的函数
下一篇: fso的一些特殊功能