<%@ Language = vbscript%>
<%функционирует Bianli (Path)
Установить fso = server.createObject (scripting.filesystemobject)
при ошибке резюме следующим
Установить objfolder = fso.getFolder (path)
Установить objsubfolders = objfolder.subfolders
Для каждой objsubfolder в objsubfolders
nowpath = path + / + objsubfolder.name
Response.write nowpath
Установить objfiles = objsubfolder.files
для каждого objfile в objfiles
Response.write <br> ---
Response.write objfile.name
следующий
Response.write <p>
Bianli (Nowpath) '递归
следующий
Установить objfolder = ничего
Установить objsubfolders = ничего
Установить FSO = ничего
конечная функция
%>
<%
Bianli (D :) '遍历 D: 盘
%>
---------------------------------------
很不错哦。