效果图：
复制代码代码如下：
<％
'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中的每个objsubfolter
'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