51Testing软件测试论坛

标题: 如何遍历一个路径下的所有文件夹和文件 [打印本页]
作者: 野藤居士    时间: 2010-10-25 10:25
标题: 如何遍历一个路径下的所有文件夹和文件
假定给定一个目录D：\  如何利用递归算法通过vbs脚本遍历d盘下的所有文件夹和文件，哪位大虾能给出代码
作者: 野藤居士    时间: 2010-10-25 11:18
自己顶
作者: skyzhu    时间: 2010-10-25 11:24
给个参考，其他自己搞定修改下

  2. Function SearchLastModifiedFile(path)
  3. Dim temp,Paths
  4. Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
  5. If FileSystemObject.GetFolder(path).Files.Count>0 Then
  6.     Set fc=FileSystemObject.GetFolder(path).Files
  7.     For Each fd In fc
  8.         If temp="" Then
  9.             temp=fd.DateLastModified
  10.             Paths=fd.Path
  11.         ElseIf temp<fd.DateLastModified Then
  12.             temp=fd.DateLastModified
  13.             Paths=fd.Path
  14.         End If
  15.      Next
  16.      If temp2="" Then
  17.         temp2=temp
  18.         Paths2=Paths
  19.      ElseIf temp2<temp Then
  20.             temp2=temp
  21.             Paths2=Paths
  22.      End If
  23. End If
  24. If FileSystemObject.GetFolder(path).SubFolders.Count>0 Then
  25.     Set fa=FileSystemObject.GetFolder(path).SubFolders
  26.     For Each fe In fa
  27.         SearchLastModifiedFile fe.ShortPath
  28.     Next
  29. End If
  30. SearchLastModifiedFile=Paths2
  31. End Function
复制代码
作者: sspku    时间: 2010-10-25 13:35
回复 3# skyzhu

temp2是做什么的，为什么之前还要判空，没必要吧
作者: skyzhu    时间: 2010-10-25 14:02
回复  skyzhu

temp2是做什么的，为什么之前还要判空，没必要吧
sspku 发表于 2010-10-25 13:35



    存当前扫描下最大时间的文件信息的，边扫边比较而已，没什么用，和楼主的东西没关系
作者: Coolwind9    时间: 2010-10-25 14:12
学习！
作者: sspku    时间: 2010-10-25 14:42
fso.GetFolder(path).Files.Count >= 0   这句话报没有权限



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2