论坛交流
首页办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: Windows | Word2007 | Excel2007 | PowerPoint2007 | Dreamweaver 8 | Fireworks 8 | Flash 8 | Photoshop cs | CorelDraw 12
编程视频: C语言视频教程 | HTML | Div+Css布局 | Javascript | Access数据库 | Asp | Sql Server数据库Asp.net  | Flash AS
当前位置 > 文字教程 > asp教程
Tag:入门,文摘,实例,技巧,iis,表单,对象,上传,数据库,记录集,session,cookies,存储过程,注入,分页,安全,优化,xmlhttp,fso,jmail,application,防盗链,stream,组件,md5,乱码,缓存,加密,验证码,算法,ubb,正则表达式,水印,,日志,压缩,url重写,控件,函数,破解,触发器,socket,ADO,初学,聊天室,留言本,视频教程

读取目录下的所有文件(源码)

文章类别:asp | 发表日期:2008-10-5 20:42:29

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
     
     
     
     
视频教程列表
文章教程搜索
 
Asp推荐教程
Asp热门教程
看全部视频教程
购买方式/价格
购买视频教程: 咨询客服
tel:15972130058