【Asp技巧】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技巧】ASP递归搜索目录所有文件

发表评论

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