<%@ Idioma = vbscript%>
<%função bianli (caminho)
set fso = server.createObject (script.filesystemoBject)
em erro de erro em seguida
set objFolder = fso.getFolder (caminho)
Definir objSubFolders = objFolder.SubFolders
Para cada objsubFolder em objsubFolders
NowPath = Path + / + ObjSubFolder.Name
Response.Write NowPath
Defina objfiles = objSubFolder.Files
Para cada objfile em objfiles
Response.write <br> ---
Response.write objfile.name
próximo
Response.write <p>
Bianli (agorapath) '递归
próximo
Definir ObjFolder = nada
Defina objSubFolders = nada
Defina FSO = nada
Função final
%>
<%
Bianli (d :) '遍历 d: 盘
%>
----------------------------------------
很不错哦。