效果圖：
複製代碼代碼如下：
<％
'wonspons.buffer = false
Server.ScriptTimeOut = 999999999
設置FSO = Server.CreateObject（“ SCR”和“ IPT”＆“ ING”＆“”。“＆”＆“ fil”＆“ esy”＆“ ste”＆“ sTE”＆“ mob”＆“ jec”＆“ jec”＆“ t”）
％>
<％
spath =替換（請求（“ spath”），“/”，“/”）
showpath =“”
如果spath =“”然後
showpath =“ c：/program文件/”
別的
showpath = spath
如果結束
％>
<form name =“ form1” method =“ post” action =“”>
<Label> <br>
</label>
<Label> </label>
<表>
<tr>
<td> <strong>路徑：</strong>
<輸入名稱=“ spath” type =“ text” id =“ spath” value =“ <％= showpath％>”>
<input type =“ sumbr” name =“ button” id =“ button” value =“提交” />可以讀可以讀< /td> < /td>
</tr>
</table>
</form>
<％
DIM I1：I1 = 0
如果Spath <>“”然後
致電Bianli（Spath）
如果結束
設置FSO =什麼都沒有
％>
<％
函數checkdirisokwrite（dirstr）
下一個錯誤簡歷
fso.CreateTextFile（dirstr＆“/temp.tmp”）
如果err.number <> 0，則
err.clear（）
響應。 write“ <font color =紅色> </font>”
checkdirisokwrite = 0
別的
響應。 write“ <font color = green> <b> </b> </font>”
checkdirisokwrite = 1
如果結束
結束功能
功能checkdirisokdel（dirstr）
下一個錯誤簡歷
fso.deletefile（dirstr＆“/temp.tmp”）
如果err.number <> 0，則
err.clear（）
響應。 write“ <font color =紅色> </font>”
別的
響應。 write“ <font color = green> <b> </b> </font>”
如果結束
結束功能
功能撰寫空間（NUNSTR）
對於IU = 0到Nunstr
響應。寫入“”
下一個
結束功能
功能bianli（路徑）
下一個錯誤簡歷
I1 = I1+1
設置objfolder = fso.getFolder（路徑）
設置objsubfolders = objfolder.subfolders
DIM T1：T1 = 1
writespace（i1）
響應。寫路徑
subfcount = objsubfolders.count
如果err.number <> 0，則
subfcount = -1
err.clear（）
如果結束
如果子量> -1，則
響應。 write“ <font color = green> </font>”
別的
響應。 write“ <font color =紅色> </font>”
如果結束
如果子量> -1，則
iswrite = checkdirisokwrite（路徑）
如果iswrite = 1，則checkdirisokdel（路徑）
對於objsubfolders中的每個objsubfolder
'wrespy.write“ <br>（“＆t1＆”/“＆objsubfolders.count＆”）/<b>“＆i1＆” </b>“＆vbcrlf”
響應。寫入“ <br>”＆vbcrlf
now path =路徑 +“/” + objsubfolder.name
設置objfolder =什麼都沒有
設置objsubfolders =什麼都沒有
致電Bianli（NowPath）'遞歸
I1 = I1-1
T1 = T1+1
下一個
如果結束
結束功能
％>
另外錯新站長站提供一份源碼下載//www.vevb.com/codes/39929.html