效果图:
复制代码代码如下:
<%
'Response.Buffer = false
Server.scriptTimeout = 999999999
Set fso = server.createObject ("scr" & "ipt" & "ing" & ".
%>
<%
Spath = Substitua (Solicitação ("Spath"), "/", "/")
ShowPath = ""
Se Spath = "" então
ShowPath = "C:/Arquivos de programas/"
outro
ShowPath = Spath
final se
%>
<formul
<bret> <br>
</belt>
<Boel> </belt>
<tabela>
<tr>
<td> <strong> 路径 ： </strong>
<input name = "spath" type = "text" id = "spath" value = "<%= showpath%>">
<input type = "submit" name = "button" id = "button" value = "提交" /> 可以读 可以写 可以写 不可写 </td>
</tr>
</tabela>
</morm>
<%
Dim i1: i1 = 0
Se Spath <> "" então
Ligue para Bianli (Spath)
final se
Defina FSO = nada
%>
<%
Função checkdirisokwrite (dirst)
Em erro de erro em seguida
Fso.createTextFile (Dirstr & "/temp.tmp")
se err.number <> 0 então
Err.clear ()
Response.write "<font color = vermelho> 不可写 </font>"
Checkdirisokwrite = 0
outro
Response.write "<font color = verde> <b> 可以写 </b> </font>"
Checkdirisokwrite = 1
final se
Função final
Função checkdirisokdel (dirst)
Em erro de erro em seguida
Fso.DeleteFile (Dirstr & "/temp.tmp")
se err.number <> 0 então
Err.clear ()
Response.write "<font color = vermelho> 不可删除 </font>"
outro
Response.write "<font color = verde> <b> 可以删除 </b> </font>"
final se
Função final
Função writeSpace (Nuntr)
Para IU = 0 para Nunstr
Response.Write ""
próximo
Função final
Função bianli (caminho)
Em erro de erro em seguida
i1 = i1+1
Set objFolder = fso.getFolder (caminho)
Definir objSubFolders = objFolder.SubFolders
Dim T1: T1 = 1
WriteSpace (i1)
Caminho da resposta
Subfcount = objSubFolders.count
se err.number <> 0 então
Subfcount = -1
Err.clear ()
final se
Se subfcount> -1 então
Response.Write "<font color = verde> 可以读 </font>"
outro
Response.write "<font color = vermelho> 不可读 </font>"
final se
Se subfcount> -1 então
Iswrite = checkdirisokwrite (caminho)
Se iswrite = 1, então checkdirisokdel (caminho)
Para cada objsubFolder em objsubFolders
'Response.Write "<br> (" & t1 & "/" & objsubFolders.count & ")/<b>" & i1 & "</b>" & vbcrlf
Response.Write "<br>" & vbcrlf
AgoraPath = Path + "/" + objSubFolder.name
Definir ObjFolder = nada
Defina objSubFolders = nada
Ligue para Bianli (agorapath) '递归
i1 = i1-1
T1 = T1+1
Próximo
final se
Função final
%>
另外错新站长站提供一份源码下载 //www.vevb.com/codes/39929.html