<%@ 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:盘 %> -------------------------------------- 很不错哦。

　　推荐阅读

　　fso的一些特殊功能

下面列举一下这些不常用但是却非常酷的功能： 　　 很少被了解的FSO功能 GetSpecialFolder Method 返回特定的Windows文件夹的路径: Windows安装目录；Windows系统目录；Windows临时目录 FSO.GetSpecialFolder([0>>>详细阅读

本文标题：遍历目录以及目录下文件的函数

地址：http://www.17bianji.com/kaifa2/ASP/32991.html

 1/2    1