快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

金沙国际娱城app_博格自动化网进入



本站文件舆图

Hide/Show =>

..

end if

mappath=Server.MapPath("/" & path)

if Fso.folderexists(mappath)=false then

response.write "路径:http://" & Request.ServerVariables("HTTP_HOST") &金沙国际娱城app "/" & path & "不存在!"

response.end

end if

dim Tf

tf=0

Sub DirThisFolder(Fo,strHead)'递归历程,法度榜样作者: 同济黄正 http://websamba.com/hzhzhz/

if not fso.FolderExists(Fo) then exit sub

dim foN,fiN,Tt

Set Folde = Fso.GetFolder(Fo)

foN=Folde.SubFolders.count

fiN=Folde.files.count

Tt=""

if foN then Tt=tt & "+"

tt=tt & "0"'类似图标的字符

if len(strHead) then

if fiN>0 then

Response金沙国际娱城app.Write left(strHead,len(strHead)-1) & "├" & Tt & Folde.name & "

"

else

Response.Write left(strHead,len(strHead)-1) & "├" & Tt & Folde.name & "

"

end i金沙国际娱城appf

else

Response.Write "" & Tt & F金沙国际娱城appolde.path & "

"

end金沙国际娱城app if

Response.Write ""

tf=tf +1

If foNThen

i=0

For Each Fol In Folde.SubFolders

isLastFol=(i=foN-1)

if fiN > 0 then

 

您可能还会对下面的文章感兴趣: