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