fso遍历某一目录下所有文件的函数
2004-11-09 10:55
543 查看
<%
function bianli(path)
set fso=server.CreateObject("scripting.filesystemobject") </P><P>on error resume next
set objFolder=fso.GetFolder(path)</P><P>set objSubFolders=objFolder.Subfolders</P><P>for each objSubFolder in objSubFolders </P><P>nowpath=path + "/" + objSubFolder.name</P><P>Response.Write nowpath</P><P>set objFiles=objSubFolder.Files</P><P>for each objFile in objFiles
Response.Write "<br/>---"
Response.Write objFile.name
next
Response.Write "<p>"
bianli(nowpath)'递归</P><P>next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
%>
<%
bianli("d:") '遍历d:盘
%>
function bianli(path)
set fso=server.CreateObject("scripting.filesystemobject") </P><P>on error resume next
set objFolder=fso.GetFolder(path)</P><P>set objSubFolders=objFolder.Subfolders</P><P>for each objSubFolder in objSubFolders </P><P>nowpath=path + "/" + objSubFolder.name</P><P>Response.Write nowpath</P><P>set objFiles=objSubFolder.Files</P><P>for each objFile in objFiles
Response.Write "<br/>---"
Response.Write objFile.name
next
Response.Write "<p>"
bianli(nowpath)'递归</P><P>next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
%>
<%
bianli("d:") '遍历d:盘
%>
相关文章推荐
- PHP采用自定义函数实现遍历目录下所有文件的方法
- 遍历mac指定目录下所有Mach-O文件,找出函数符号所在的文件(库冲突用)
- 遍历显示文件夹下所有目录、所有文件的函数,没有分页
- PHP采用自定义函数实现遍历目录下所有文件的方法
- 遍历删除一个目录下所有文件的函数
- php 遍历显示文件夹下所有目录、所有文件的函数,没有分页的代码
- php 遍历显示文件夹下所有目录、所有文件的函数,没有分页的代码
- 用VC++遍历某一目录下的所有文件
- 写一个遍历目录下所有文件以及子目录的函数
- (转)PHP自定义遍历目录下所有文件dir(),readdir()函数
- PHP实现遍历某一目录下的所有文件并将特定后缀文件复制到特定目录
- 在某一磁盘目录下将.txt的所有文件遍历打印到控制台上
- PHP采用自定义函数实现遍历目录下所有文件的方法
- 遍历所有文件和目录的函数
- 在某一磁盘目录下将.txt的所有文件遍历打印到控制台上
- java 遍历某一目录下的所有class文件
- 遍历显示文件夹下所有目录、所有文件的函数
- php 遍历显示文件夹下所有目录、所有文件的函数
- 交作业 php100 第七讲 遍历目录下所有文件、文件夹
- 遍历指定目录下所有文件