FSO遍历文件夹目录及目录下文件asp代码

希望对您有所帮助！

推荐：[精品]ASP中常用的22个FSO文件操作函数

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