中讯IT教育__ASP，FSO遍历目录及目录下文件

日期:08-04-07 10:49:30 点击: 来源:中讯IT教育

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

（责任编辑：）

前一篇：

后一篇：

友情链接	重庆之窗 \| 重庆IT教育 \| 我爱论文网 \| 涪陵课件园 \| 中国教育导航 \| 第一教育网 \| 中华IT培训网
	百度网址大全重庆电脑维修网华育国际教育 maple story 中国销售培训网更多友情链接>>>