ASPFSO遍历目录及目录下文件

<%@ 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 objSubF