|
<%
'建立文件系统对象
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
%>
|
