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

  • A+
所属分类:lcx

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年的最后一天,金山网络召开紧急发布会,曝出中国有史以来最大的隐私泄露事件,与此同时,金山…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: