|
|
网站建设 下载中心 社区论坛 信息公告 MY小屋 | |
 |
联系我们 设为首页 加入收藏 |
 |
|
 |
首页 | 新闻资讯 | 编程开发 | 网页设计 | 图形图象 | 网络媒体 | 网站模板 | 数 据 库 | 投稿 论坛 | 操作系统 | 系统优化 | 网络安全 | 黑客技术 | 硬件学堂 | 硬件报价 | 服 务 器 | 地图 专题 | 应用软件 | 聊天通讯 | Q Q 专栏 | 建站经验 | 在线工具 | 站长Club | 注 册 表 | 旧版 社会 | 游戏娱乐 | 设计欣赏 | 疑难解答 | 社区论坛 | 韩国素材 | 素材图库 | 广告服务 | 服务 |
 |
 |
 |
 当前位置：首页>>编程开发>>asp专区>>正文 |
新版上线！[旧版] |  |
|||
注:打开慢时请稍等
读取目录下的所有文件（源码）http://www.iyit.net 日期：2006-12-18 13:13:15 来源： 点击： |
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 编辑： [发送给好友] [打印本页] [关闭窗口] [返回顶部] 上一篇：作一个可以直接和浏览器进行交互的组件 下一篇：没有了 转载请注明来源：www.iyit.net 特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
| 最新更新 | 热点排行 | 推荐新闻 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
 |
设置首 页 - 版权声明 - 广告服务 - 关于我们 - 联系我们 - 友情连接 |  |
| |||||||
易特网络技术