<%@ 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("f:")

' 遍历F盘.

%>