效果图:
复制代码代码如下:
-
'response.buffer = false
Server.ScriptTimeOut = 999999999
ตั้งค่า fso = server.createObject ("scr" & "ipt" & "ing" & "." & "fil" & "esy" & "ste" & "mob" & "jec" & "t" & "t"
-
-
spath = แทนที่ (คำขอ ("spath"), "/", "/")
showpath = ""
ถ้า spath = "" แล้ว
showpath = "c:/ไฟล์โปรแกรม/"
อื่น
showpath = spath
สิ้นสุดถ้า
-
<form name = "form1" method = "post" action = "">
<label> <br>
</lable>
<label> </lable>
<table>
<tr>
<td> <strong> 路径： </strong>
<input name = "spath" type = "text" id = "spath" value = "<%= showpath%>">
<อินพุต type = "ส่ง" name = "ปุ่ม" id = "ปุ่ม" value = "提交" /> 可以读 </td>
</tr>
</table>
</form>
-
dim i1: i1 = 0
ถ้า spath <> "" แล้ว
โทรหา Bianli (Spath)
สิ้นสุดถ้า
ตั้งค่า fso = ไม่มีอะไร
-
-
ฟังก์ชั่น checkdirisokwrite (DIRST)
เมื่อเกิดข้อผิดพลาดต่อไป
fso.createtextfile (dirstr & "/temp.tmp"))
ถ้า err.number <> 0 แล้ว
err.clear ()
Response.write "<font color = red> 不可写 </font>"
checkDirisokWrite = 0
อื่น
Response.write "<font color = green> <b> 可以写 </b> </font>"
CheckDirisokWrite = 1
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น checkdirisokdel (DIRST)
เมื่อเกิดข้อผิดพลาดต่อไป
fso.deletefile (Dirstr & "/temp.tmp"))
ถ้า err.number <> 0 แล้ว
err.clear ()
Response.write "<font color = red> 不可删除 </font>"
อื่น
Response.write "<font color = green> <b> 可以删除 </b> </font>"
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น writespace (NUNSTR)
สำหรับ iu = 0 ถึง Nunstr
Response.write ""
ต่อไป
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น bianli (เส้นทาง)
เมื่อเกิดข้อผิดพลาดต่อไป
i1 = i1+1
ตั้งค่า objfolder = fso.getFolder (เส้นทาง)
ตั้งค่า objsubfolders = objfolder.subfolders
Dim T1: T1 = 1
writespace (i1)
Response.write Path
subfcount = objsubfolders.count
ถ้า err.number <> 0 แล้ว
subfcount = -1
err.clear ()
สิ้นสุดถ้า
ถ้า subfcount> -1 แล้ว
Response.write "<font color = green> 可以读 </font>"
อื่น
Response.write "<font color = red> 不可读 </font>"
สิ้นสุดถ้า
ถ้า subfcount> -1 แล้ว
isWrite = checkDirisokWrite (เส้นทาง)
ถ้า isWrite = 1 แล้วตรวจสอบ Dirisokdel (เส้นทาง)
สำหรับ OBJSubFolder แต่ละตัวใน OBJSubFolders
'response.write "<br> (" & t1 & "/" & objsubfolders.count & ")/<b>" & i1 & "</b>" & vbcrlf
Response.write "<br>" & vbcrlf
nowPath = path + "/" + objsubfolder.name
ตั้งค่า objfolder = ไม่มีอะไร
ตั้งค่า objsubfolders = ไม่มีอะไร
โทรหา Bianli (NowPath) '递归
i1 = i1-1
T1 = T1+1
ต่อไป
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
另外错新站长站提供一份源码下载 //www.vevb.com/codes/39929.html