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

Response.Write objFile.name

next

Response.Write "

"

bianli(nowpath)'递归

next

set objFolder=nothing

set objSubFolders=nothing

set fso=nothing

end function

%>

<%

bianli("d:") '遍历d:盘

%>