[已解决]让字典只读取第二级的目录，怎么弄

billyzhang0609

该程序的功能是将目标文件夹"C:\test\“下面的所有与输入文件名相关的文件的路径列出来。

问1：如果只要次一级的目录里面的文件，代码怎么改？
问2：如果只要存储最近一个月的文件夹的路径，代码怎么改？

最佳答案

月排行榜 / 总排行榜

芐雨

2015-1-8 11:47

只提次一级目录的文件

1. Sub t()
   
2.     Dim sFolder, sFile, Fso As Object
   
3.     Dim arr(1 To 100), myPath$$, P$$, i%, x%, j%
   
4.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
5.    
   
6.     myPath = ThisWorkbook.Path & ""  '目录路径
   
7. 
   
8.     Set sFolder = Fso.getfolder(myPath)
   
9.     For Each sFile In sFolder.subfolders
   
10.         i = i + 1
    
11.         arr(i) = sFile.Name & ""
    
12.     Next
    
13.     For j = 1 To i
    
14.         P = myPath & arr(j)
    
15.         Set sFolder = Fso.getfolder(P)
    
16.         For Each sFile In sFolder.Files
    
17.             x = x + 1
    
18.             Cells(x, 1) = P & sFile.Name
    
19.         Next
    
20.     Next
    
21. End Sub

复制代码

存储时间是指修改时间？
只提次一级且修改时间少于1个月的文件

1. Sub t1()
   
2.     Dim sFolder, sFile, Fso As Object
   
3.     Dim arr(1 To 100), myPath$$, P$$, i%, x%, j%
   
4.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
5.    
   
6.     myPath = ThisWorkbook.Path & ""  '目录路径
   
7. 
   
8.     Set sFolder = Fso.getfolder(myPath)
   
9.     For Each sFile In sFolder.subfolders
   
10.         i = i + 1
    
11.         arr(i) = sFile.Name & ""
    
12.     Next
    
13.     For j = 1 To i
    
14.         P = myPath & arr(j)
    
15.         Set sFolder = Fso.getfolder(P)
    
16.         For Each sFile In sFolder.Files
    
17.         If DateDiff("m", FileDateTime(P & sFile.Name), Date) <= 1 Then '月数少于等于1
    
18.             x = x + 1
    
19.             Cells(x, 1) = P & sFile.Name
    
20.        End If
    
21.         Next
    
22.     Next
    
23. End Sub

复制代码

跳转到最佳答案楼层

billyzhang0609

继续等待高手的解答。

芐雨

只提次一级目录的文件

1. Sub t()
   
2.     Dim sFolder, sFile, Fso As Object
   
3.     Dim arr(1 To 100), myPath$$, P$$, i%, x%, j%
   
4.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
5.    
   
6.     myPath = ThisWorkbook.Path & ""  '目录路径
   
7. 
   
8.     Set sFolder = Fso.getfolder(myPath)
   
9.     For Each sFile In sFolder.subfolders
   
10.         i = i + 1
    
11.         arr(i) = sFile.Name & ""
    
12.     Next
    
13.     For j = 1 To i
    
14.         P = myPath & arr(j)
    
15.         Set sFolder = Fso.getfolder(P)
    
16.         For Each sFile In sFolder.Files
    
17.             x = x + 1
    
18.             Cells(x, 1) = P & sFile.Name
    
19.         Next
    
20.     Next
    
21. End Sub

复制代码

存储时间是指修改时间？
只提次一级且修改时间少于1个月的文件

1. Sub t1()
   
2.     Dim sFolder, sFile, Fso As Object
   
3.     Dim arr(1 To 100), myPath$$, P$$, i%, x%, j%
   
4.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
5.    
   
6.     myPath = ThisWorkbook.Path & ""  '目录路径
   
7. 
   
8.     Set sFolder = Fso.getfolder(myPath)
   
9.     For Each sFile In sFolder.subfolders
   
10.         i = i + 1
    
11.         arr(i) = sFile.Name & ""
    
12.     Next
    
13.     For j = 1 To i
    
14.         P = myPath & arr(j)
    
15.         Set sFolder = Fso.getfolder(P)
    
16.         For Each sFile In sFolder.Files
    
17.         If DateDiff("m", FileDateTime(P & sFile.Name), Date) <= 1 Then '月数少于等于1
    
18.             x = x + 1
    
19.             Cells(x, 1) = P & sFile.Name
    
20.        End If
    
21.         Next
    
22.     Next
    
23. End Sub

复制代码

billyzhang0609

芐雨 发表于 2015-1-8 11:47
只提次一级目录的文件存储时间是指修改时间？
只提次一级且修改时间少于1个月的文件

怎一个“谢”字了得啊！