<％@言語= vbscript％>
<％関数Bianli（パス）
fso = server.createObject（scripting.filesystemObject）を設定します
エラーの再開時に次に再開します
objfolder = fso.getFolder（PATH）を設定します
objsubfolders = objfolder.subfoldersを設定します
objsubfoldersの各objsubfolderについて
nowpath = path + / + objsubfolder.name
respons.write nowpath
objfiles = objsubfolder.filesを設定します
objfilesの各objfileについて
respons.write <br> ---
respons.write objfile.name
次
Response.Write <P>
Bianli（NowPath） '递归
次
objfolder = Nothingを設定します
objsubfolders = Nothingを設定します
FSO =何も設定しません
エンド関数
％>
<％
bianli（d :) '遍历D：盘
％>
---------------------------------------------------
很不错哦。