遍历目录以及目录下文件的函数

<%@ Language=VBScript %> <% '我写的一个遍历目录以及目录下文件的函数， %> <% function bianli(path) set fso=server.CreateObject("scripting.filesystemobject") 

on error resume nextset 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 objFilesResponse.Write "<br>---"Response.Write objFile.namenextResponse.Write "<p>"bianli(nowpath)'递归

next set objFolder=nothingset objSubFolders=nothingset fso=nothingend function%><%bianli("d:") '遍历d:盘%>

转载于:https://www.cnblogs.com/cider/archive/2004/04/21/6904.html