<%@ Sprache = vbScript%>
<%Funktionsbianli (Pfad)
Setzen Sie fso = server.createObject (scripting.FilesystemObject)
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie objfolker = fso.getFolder (Pfad)
Setzen Sie Objsubfolders = Objfolder.SubFolders
Für jeden objsubfolder in objsubFolders
jetzt path = Pfad + / + objsubfolder.name
Response.write nowpath
Setzen Sie objFiles = objsubfolder.files
für jede objfile in objFiles
Response.write <br> ---
Response.write objfile.name
nächste
Response.write <p>
Bianli (jetztPath) '递归
nächste
Setzen Sie Objfolker = nichts
Setzen Sie ObjsubFolders = nichts
Setzen Sie fso = nichts
Endfunktion
%>
<%
Bianli (D :) '遍历 D: 盘
%>
------------------------------------------------------------------------------------------------------------------
很不错哦。