| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1016 人关注过本帖
标题:如何实现目录遍历所有根目录下的文件?
只看楼主 加入收藏
tmwz2005
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2005-12-4
结帖率:0
收藏
 问题点数:0 回复次数:2 
如何实现目录遍历所有根目录下的文件?
我想清除数据库中不存在而空间上又有的图片文件,思路是这样的

遍历根目录下的每个文件夹,设置发现文件的标志为0,如果在遍历这个子文件夹的时候发现了文件,并且文件是有用的,则设置发现文件的标志为1,当这个子目录遍历完毕的时候,判断下文件发现标志,如果还为0则删除该子文件夹。
继续循环即可完成对所有子文件夹的遍历。

请问代码该如何写啊?求助一下各位了,感激不尽!
搜索更多相关主题的帖子: 遍历 文件 数据库 有根 空间 
2008-06-02 20:06
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5810
专家分:118
注 册:2005-4-7
收藏
得分:0 
sub ListFolderContents(path)



     dim fs, folder, file, item, url



     set fs = CreateObject("Scripting.FileSystemObject")
     set folder = fs.GetFolder(path)



    'Display the target folder and info.



     Response.Write("<li><b>" & folder.Name & "</b> - " _
       & folder.Files.Count & " files, ")
     if folder.SubFolders.Count > 0 then
       Response.Write(folder.SubFolders.Count & " directories, ")
     end if
     Response.Write(Round(folder.Size / 1024) & " KB total." _
       & vbCrLf)



     Response.Write("<ul>" & vbCrLf)



     'Display a list of sub folders.



     for each item in folder.SubFolders
       ListFolderContents(item.Path)
     next



     'Display a list of files.



     for each item in folder.Files
       url = MapURL(item.path)
       Response.Write("<li><a href=""" & url & """>" & item.Name & "</a> - " _
         & item.Size & " bytes, " _
         & "last modified on " & item.DateLastModified & "." _
         & "</li>" & vbCrLf)
     next



     Response.Write("</ul>" & vbCrLf)



     Response.Write("</li>" & vbCrLf)



   end sub



   function MapURL(path)



     dim rootPath, url



     'Convert a physical file path to a URL for hypertext links.



     rootPath = Server.MapPath("/")
     url = Right(path, Len(path) - Len(rootPath))
     MapURL = Replace(url, "\", "/")



   end function



转载

2008-06-02 21:29
tmwz2005
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2005-12-4
收藏
得分:0 
多谢楼上的,
我不是很懂,看来还是得好好学学才行.
2008-06-03 10:43
快速回复:如何实现目录遍历所有根目录下的文件?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031893 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved