ttx9n · 发表于 2006-10-28 00:00:00

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

fzyzy · 发表于 2023-1-25 12:25:21

很不错的源码论坛

fiyeid · 发表于 2023-2-25 04:39:37

很不错的样子

e5plu · 发表于 2023-6-23 23:45:07

啪啪啪生怕PSP怕

locopy · 发表于 2023-8-23 20:07:32

看看怎么样再说

errol123 · 发表于 2023-9-12 05:01:59

啊啊啊啊啊啊啊啊啊啊啊啊啊啊

70r45_zs · 发表于 2023-10-19 13:00:05

来看看！！！

mkonji · 发表于 2024-4-9 06:06:57

的沙发水电费水电费

z80vh · 发表于 2024-5-4 10:39:50

554411515451555

pb_tjc · 发表于 2024-5-11 02:30:08

终于找到了，我擦

账号		自动登录	找回密码
密码			立即注册

[ASP编程] 遍历目录以及目录下文件的函数

相关帖子