-
<%@ 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:盘
-
%>
