<％@語言= 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：盤
％>
------------------------------------------------------
很不錯哦。