您现在的位置是：网站首页> 编程资料编程资料
asp遍历站点所有文件夹的代码_FSO专题_
2023-05-25
344人已围观
简介 asp遍历站点所有文件夹的代码_FSO专题_
<%
Dim fso,objfolder,objfile,strpath
set fso=server.createobject("Scripting.FileSystemObject")
strpath="."
call bl(strpath)
function bl(strpath)
set objfolder=fso.getfolder(server.mappath(strpath))
for each objsubfolder in objfolder.subfolders
Response.write "
call bl(strpath & "\" & objsubfolder.name)
next
End function
%>
<%
fpath=Request.form("fpath")
if fpath<>"0" and fpath<>Empty then
Response.write "
"
set objfolder=fso.getfolder(server.mappath(fpath))
for each objsubfolder in objfolder.subfolders
Response.write "子文件夹名称:" & objsubfolder.name & "
"
next
Response.write "
"
for each objfile in objfolder.files
Response.write "文件名称：" & objfile.name & "
"
next
set objfolder=nothing
End if
%>
您可能感兴趣的文章:
