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

　　推荐阅读

　　asp 常用函数用法

Array() 　　 FUNCTION: 返回一个数组 　　 SYNTAX: Array(list) 　　 ARGUMENTS: 字符，数字均可 　　 EXAMPLE: <% 　　 Dim myArray() 　　 For i = 1 to 7 　　 Redim Preserve myArray(i) 　　 myArra>>>详细阅读

本文标题：ASP，FSO遍历目录及目录下文件

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

 1/2    1