读取目录下的所有文件（源码） -pc6资讯

您的位置：首页 → 网页设计 → ASP实例 → 读取目录下的所有文件（源码）

读取目录下的所有文件（源码） 时间：2004/11/7 2:51:00来源：本站整理作者：蓝点我要评论(0): 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条评论>>

热门文章 没有查询到任何记录。