繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 读取目录下的所有文件(包括子目录下的所有文件)
- ASP
- 一个BBS的源代码(五)
- 一个BBS的源代码(六)
- 通过asp入侵web server,窃取文件毁坏系统
- 微软dvwssr.dll后门
- ASP3.0给我们带来的新技术之一---Data Shaping技术
- ASP环境下邮件列表功能的实现 （一）（推荐）
- ASP环境下邮件列表功能的实现 （二）（推荐）
- ASP环境下邮件列表功能的实现 （三）（推荐）
- 用ASP实现网页保密的两种方法
- 聊天室实现私聊(一)
- 聊天室实现私聊(二)
- 聊天室实现私聊(三)
- 聊天室实现私聊(四)
- ADO存取数据时如何实现留言记录的分页显示
- 在ASP中常见的错误80004005信息和解决办法
- 用ASP实现一个真正的注册页面
- 一个简单聊天室的建立.(供学习参考)
- ASP的Internet/Intranet编程常见问题
- 构建你的网站新闻自动发布系统之一
- 构建你的网站新闻自动发布系统之二
ASP 中的 读取目录下的所有文件(包括子目录下的所有文件)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 253 ::
收藏到网摘: 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
