CSDN博客

img yanweidong1030

遍历目录下的所有文件

发表于2004/7/6 23:18:00  808人阅读

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:盘
%>

0 0

相关博文

我的热门文章

img
取 消
img