软件测试论坛 › [QuickTest Professional] › 如何遍历一个路径下的所有文件夹和文件

野藤居士 发表于 2010-10-25 10:25:55

如何遍历一个路径下的所有文件夹和文件

假定给定一个目录D：\如何利用递归算法通过vbs脚本遍历d盘下的所有文件夹和文件，哪位大虾能给出代码

野藤居士 发表于 2010-10-25 11:18:42

自己顶

skyzhu 发表于 2010-10-25 11:24:51

给个参考，其他自己搞定修改下
Function SearchLastModifiedFile(path)
Dim temp,Paths
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
If FileSystemObject.GetFolder(path).Files.Count>0 Then
    Set fc=FileSystemObject.GetFolder(path).Files
    For Each fd In fc
      If temp="" Then
            temp=fd.DateLastModified
            Paths=fd.Path
      ElseIf temp<fd.DateLastModified Then
            temp=fd.DateLastModified
            Paths=fd.Path
      End If
   Next
   If temp2="" Then
      temp2=temp
      Paths2=Paths
   ElseIf temp2<temp Then
            temp2=temp
            Paths2=Paths
   End If
End If
If FileSystemObject.GetFolder(path).SubFolders.Count>0 Then
    Set fa=FileSystemObject.GetFolder(path).SubFolders
    For Each fe In fa
      SearchLastModifiedFile fe.ShortPath
    Next
End If
SearchLastModifiedFile=Paths2
End Function

sspku 发表于 2010-10-25 13:35:59

回复 3# skyzhu

temp2是做什么的，为什么之前还要判空，没必要吧

skyzhu 发表于 2010-10-25 14:02:15

回复skyzhu

temp2是做什么的，为什么之前还要判空，没必要吧
sspku 发表于 2010-10-25 13:35 http://bbs.51testing.com/images/common/back.gif


    存当前扫描下最大时间的文件信息的，边扫边比较而已，没什么用，和楼主的东西没关系

Coolwind9 发表于 2010-10-25 14:12:40

学习！

sspku 发表于 2010-10-25 14:42:57

fso.GetFolder(path).Files.Count >= 0   这句话报没有权限

查看完整版本: 如何遍历一个路径下的所有文件夹和文件