<%@ language = vbscript%>
<%기능 bianli (경로)
set fso = server.createobject (scripting.filesystemobject)
다음에 오류가 재개됩니다
set objfolder = fso.getfolder (경로)
objsubfolders = objfolder.subfolders를 설정합니다
objsubfolders의 각 objsubfolder에 대해
nowpath = path + / + objsubfolder.name
응답
objfiles = objsubfolder.files를 설정합니다
objfiles에서 각각의 objfile에 대해
응답 <br> ---
응답. objfile.name
다음
응답 <p>
Bianli (nowpath) '递归
다음
OBJFolder = 아무것도 설정하지 않습니다
objsubfolders = 아무것도 설정하지 않습니다
FSO = 아무것도 설정하지 않습니다
엔드 기능
%>
<%
Bianli (d :) '遍历 d : 盘
%>
--------------------------------------------
很不错哦。