注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

樱之花

叶散的时候,你明白欢聚;花谢的时候,你明白青春.

 
 
 

日志

 
 
关于我

分类中“我的实验室”是我在日常工作中的一些知识总结,有些写的比较匆忙,可能大家在阅读时会产生困扰,后期有时间我会重新整理编辑,谢谢大家的到访,您们的支持是我前进的动力!

网易考拉推荐
GACHA精选

ASP读取文件夹下的所有文件  

2010-12-21 16:45:08|  分类: ASP开发 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

'建立文件系统对象
set file_system=createobject("scripting.filesystemobject")
'建立建立当前目录对象
set cur_folder=file_system.getfolder(c_path)
'建立当前目录的子目录对象集合
set sub_folders=cur_folder.subfolders
'对子目录集合进行遍历
for each each_sub_folder in sub_folders
sub_folder_name=each_sub_folder.name '目录名
sub_folder_path=c_path&"\"&each_sub_folder.name
set cur_sub_folder=file_system.getfolder(sub_folder_path)
'建立检索目录下的文件对象集合
set sub_files=cur_sub_folder.files
'遍历文件对象集合
for each each_file in sub_files
name=each_file.name'取文件名
next
next  

*********************************************************************************************************

使用递归
<%
set file_system=createobject("scripting.filesystemobject")
sub getFile(c_path)
set cur_folder=file_system.getfolder(c_path)
set sub_folders=cur_folder.subfolders
for each each_sub_folder in sub_folders
set sub_files=cur_sub_folder.files
for each each_file in sub_files
name=each_file.name'取文件名
next
sub_folder_name=each_sub_folder.name '目录名
sub_folder_path=c_path&"\"&each_sub_folder.name
sub getFile(sub_folder_path)
next
end sub
%>

********************************************************************************

function search_folder(c_path) '目录检索函数
'建立文件系统对象
set file_system=createobject("scripting.filesystemobject")
'建立建立当前目录对象
set cur_folder=file_system.getfolder(c_path)
'建立当前目录的子目录对象集合
set sub_folders=cur_folder.subfolders
'搜索当前目录中的文件
p=search_file(c_path)
'对子目录集合进行遍历
for each each_sub_folder in sub_folders
'确定子目录的属性为普通子目录
sub_c_path=c_path&"\"&each_sub_folder.name
'调用文件检索函数对当前子目录下的文件进行字符串匹配检索
p=search_file(sub_c_path)
'递归检索当前子目录的下一级目录
p=search_folder(sub_c_path)
next
'清除所有服务器端对象
set sub_files=nothing
set each_sub_folder=nothing
set sub_folders=nothing
set cur_folder=nothing
set file_system=nothing
end if
end function

**********************************************

set file_system=createobject("scripting.filesystemobject")
set cur_folder=file_system.getfolder(c_path)
'建立检索目录下的文件对象集合
set sub_files=cur_folder.files
'遍历文件对象集合
for each each_file in sub_files
name=each_file.name'取文件名
next  

  评论这张
 
阅读(2567)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017