遍历目录下的所有文件

PHP

程序代码:
<%
function bianli(path)
set fso=server.CreateObject("scripting.filesystemobject"

on error resume next
set objFolder=fso.GetFolder(path)

set objSubFolders=objFolder.Subfolders

for each objSubFolder in objSubFolders 

nowpath=path + "/" + objSubFolder.name

Response.Write nowpath

set objFiles=
objSubFolder.Files

for each objFile in objFiles
Response.Write "<br>---"
Response.Write objFile.name
next
Response.Write "<p>"
bianli(nowpath)'递归

next 
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
%>
<%
bianli("d:") '遍历d:盘
%>

阅读更多
文章标签: path function each php
上一篇禁止站外提交表单
下一篇精妙SQL语句
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭