<% @ Language = vbscript%>
<% fonction bianli (chemin)
set fso = server.createObject (scripting.fileSystemObject)
sur l'erreur reprendre ensuite
Définir objfolder = fso.getfolder (chemin)
Définir ObjSubfolders = Objfolder.Subfolders
pour chaque objsubfolder dans les objsubfoldeurs
NowPath = Path + / + objsubfolder.name
Response.Write NowPath
définir objFiles = objSubFolder.files
pour chaque objfile dans les objfiles
Réponse.write <br> ---
Réponse.write objfile.name
suivant
Réponse.write <p>
Bianli (Nowpath) '递归
suivant
définir objfolder = rien
définir objSubfolders = rien
Définir FSO = rien
fonction finale
%>
<%
Bianli (D :) '遍历 D: 盘
%>
--------------------------------------
很不错哦。