繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 读取目录下的所有文件(包括子目录下的所有文件)
- ASP
- ASP连接SQL2005数据库连接代码
- ASP程序与SQL存储过程结合使用详解
- asp 小偷采集程序原理与常用函数方法
- 防盗链接ASP函数
- asp将table生成excel文件(xls)
- asp实现新评论自动发短信提示的代码
- asp最简单的生成验证码代码
- ASP 常见对象总结(熟悉一下利用以后的开发使用)
- ASP UTF-8编码生成静态网页的函数
- ASP+FSO生成的网页文件默认编码格式以及转换成UTF-8编码方法
- asp Access数据备份,还原,压缩类代码
- asp fso操作类
- ASP 自动采集实现代码
- asp 一些支付接口
- ASP 递归调用 已知节点查找根节点的函数
- 用asp实现读取文件的最后一行的代码
- 用asp实现的获取文件夹中文件的个数的代码
- ASP与Excel结合生成数据表和Chart图的代码
- iis7 ASP+Access数据库连接错误
- ASP 日期的加减运算实现代码
ASP 中的 读取目录下的所有文件(包括子目录下的所有文件)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 63 ::
收藏到网摘: n/a
******************************
Many times we might need some part of code which will access all sub-folders of the server and also all
files within the sub-folder.
The following line of asp code will map to a specified folder and searches all the sub-folders
(Not recursively, code can be extended to do) and reads all files(basically text files) one by one.
You can specify any folder name, in the remarks given in the code (within " ")
'Create a File system Object
set FileSystem=server.CreateObject("scripting.filesystemobject")
dim dbconn
folderpath=server.MapPath("main Folder path" )
set sfolder=Filesystem.GetFolder(folderpath).SubFolders
for each FolderItem in sfolder
set Files=FolderItem.Files
for each FileItem in Files
fname=server.MapPath( "main folder path" & FolderItem.Name & "\" & FileItem.Name
set File=FileSystem.OpenTextFile(fname,1,false)
while File.AtEndofStream <> True
record=split(File.Readline,"~")
wend
File.close
FileSystem.DeleteFile(fname)
next
next
******************************
评论 (0) All
