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
NextFor Each ObjFolder In Fso.GetFolder(Path).SubFolders '读取子目录
BianLi(Path & "" & ObjFolder.Name) '调用递归搜索子目录完整路径
Next
End FunctionBianLi(Server.MapPath(".")) '调用遍历函数
%>
文章来源于lcx.cc:【Asp技巧】ASP递归搜索目录所有文件
- 左青龙
- 微信扫一扫
- 右白虎
- 微信扫一扫
评论