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

dingzhi521 · 发表于 2022-8-23 04:53:58

1312315458748777

dingzhi521 · 发表于 2022-12-30 22:04:40

老大你好你好好你好

雪龙Ui79 · 发表于 2023-2-15 18:26:37

加快速度很快就撒谎

6ox8dn · 发表于 2024-3-11 11:50:23

女生看了弄丢了卡萨诺的卡洛斯

360784533 · 发表于 2024-3-17 10:47:19

撒旦撒旦撒擦擦擦擦

vir5051 · 发表于 2024-3-19 18:57:20

天天源码社区。。。。

q215357618 · 发表于 2024-6-14 09:38:25

人都不在了啊啊

r8st9 · 发表于 2024-6-24 00:30:49

非常vbcbvcvbvcb

789456 · 发表于 2024-6-25 08:16:02

怕怕怕怕怕怕怕怕怕怕怕怕怕怕

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

[ASP编程] ASP，FSO遍历目录及目录下文件

相关帖子