<％@语言= vbscript％>
<％函数bianli（路径）
设置fso = server.createobject（scripting.filesystemobject）
下一个错误简历
设置objfolder = fso.getFolder（路径）
设置objsubfolders = objfolder.subfolders
对于objsubfolders中的每个objsubfolter
now path =路径 + / + objsubfolder.name
wress.write nowpath
设置objfiles = objsubfolder.files
对于objfiles中的每个objfile
响应。写<br> ------
wress.write objfile.name
下一个
响应。write<p>
Bianli（NowPath）'递归
下一个
设置objfolder =什么都没有
设置objsubfolders =什么都没有
设置FSO =什么都没有
结束功能
％>
<％
Bianli（D :)'遍历d：盘
％>
------------------------------------------------------
很不错哦。