遍历目录下的所有文件
2004-07-06 23:18
393 查看
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:盘
%> <%
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:盘
%>
程序代码:
<%
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:盘
%> <%
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:盘
%>
相关文章推荐
- VC中遍历指定目录中的所有文件和文件夹
- 这是一个定时脚本,主要功能是遍历该文件夹下的所有文件并存储到数组,对数据中的文件进行操作,一个一个移动到指定的目录下,并删除原有文件
- 面试题-程序题-Java递归实现遍历文件目录(所有文件夹和子文件)
- 遍历Symbian某目录下的所有文件
- 递归遍历一个文件目录下的所有文件
- php源码之遍历目录下的所有的文件
- 遍历Sd卡目录中所有子文件【可筛选特定类型文件】
- Java遍历一个目录下的所有文件
- C# 遍历文件夹子目录下所有图片及遍历文件夹下的文件
- 遍历目录中的所有文件和目录,并生成全路径
- Delphi 计算指定目录下所有文件的大小(遍历文件夹所有文件及目录)
- 遍历一个目录下的所有文件和子文件夹
- Linux C :遍历输出指定目录下的所有文件
- PHP遍历并打印指定目录下所有文件实例
- C/C++遍历目录下的所有文件(Windows/Linux篇,超详细)
- Linux C :遍历输出指定目录下的所有文件
- Python遍历某目录下的所有文件夹与文件路径
- fso遍历某一目录下所有文件的函数
- 遍历目录所有文件并找出大小为0的文件路径 的脚本
- 遍历当前文件目录并且删除所有最近一周没有修改的文件(C/C++)