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

野藤居士

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

sspku

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

Coolwind9

学习！

skyzhu

回复  skyzhu

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

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

sspku

回复 3# skyzhu

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

skyzhu

给个参考，其他自己搞定修改下

1. 
   
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
    

复制代码

野藤居士

自己顶