<%@ Bahasa = VBScript%>
<%fungsi bianli (jalur)
atur fso = server.createObject (scripting.filesystemObject)
pada kesalahan resume berikutnya
atur objolder = fso.getFolder (path)
atur objsubfolders = objolder.subfolders
untuk setiap objsubfolder di objsubfolder
nowpath = path + / + objsubfolder.name
Response.write nowpath
atur objfiles = objsubfolder.files
untuk setiap objfile dalam objfile
Response.write <br> ---
Response.write objfile.name
Berikutnya
Response.write <p>
Bianli (Nowpath) '递归
Berikutnya
atur objolder = tidak ada
Atur objsubfolders = tidak ada
atur fso = tidak ada
fungsi akhir
%>
<%
Bianli (D :) '遍历 D: 盘
%>
--------------------------------------
很不错哦。