【ASP】递归搜索目录下所有文件,包括子目录

admin 2021年4月3日19:02:22评论41 views字数 645阅读2分9秒阅读模式

ASP递归搜索目录下所有文件,包括子目录:

'On Error Resume Next

Function BianLi(Path) '遍历递归搜索所有文件
Dim Fso,ObjFolder,ObjFile 'Fso对象,子目录对象,文件对象
Set Fso=Server.CreateObject("scripting.filesystemObject") '创建FSO读写对象

For Each ObjFile in Fso.GetFolder(Path).Files '读取当前目录下的文件
    Response.Write Path & "" & ObjFile.Name & " - Size:" & ObjFile.Size & " Bytes
" & Vbcrlf
Next

For Each ObjFolder In Fso.GetFolder(Path).SubFolders '读取子目录
    BianLi(Path & "" & ObjFolder.Name) '调用递归搜索子目录完整路径
Next
End Function

BianLi(Server.MapPath(".")) '调用遍历函数
%>

文章来源于lcx.cc:【ASP】递归搜索目录下所有文件,包括子目录

相关推荐: 360秘密收集用户信息日志文件大规模外泄

    360记录的大量用户信息的日志文件大规模外泄,金山网络称360秘密收集用户信息并且遭外泄。     北京时间12月31日消息 当天,2010年12月31日,2010年的最后一天,金山网络召开紧急发布会,曝出中国有史以来最大的隐私泄露事件,与此同时,金山…

  • 左青龙
  • 微信扫一扫
  • weinxin
  • 右白虎
  • 微信扫一扫
  • weinxin
admin
  • 本文由 发表于 2021年4月3日19:02:22
  • 转载请保留本文链接(CN-SEC中文网:感谢原作者辛苦付出):
                   【ASP】递归搜索目录下所有文件,包括子目录http://cn-sec.com/archives/319687.html

发表评论

匿名网友 填写信息