在交替路径中搜索文件

Question

我有一个VBA代码，可以查找并列出指定文件夹中的所有文件和文件夹。那就是：

Sub Example1() 
Dim objFSO As Object 
Dim objFolder As Object 
Dim objFile As Object 
Dim i As Integer 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.GetFolder("C:\Desktop\Test\2015\11-16") 
i = 1 
For Each objFile In objFolder.Files 
    Cells(i + 1, 1) = objFile.Name 
    Cells(i + 1, 2) = objFile.Path 
    i = i + 1 
Next objFile 
End Sub 

* 1）如何获得当月？ 2）如何获得当年？ 3）如何将M/YY格式的当前月份/年份合并到文件夹路径中？

Answer 1

将文件的for循环放入另一个循环数个月。

Imports System 
Module module1 
    Sub Main() 
    Dim objFSO As Object 
    Dim objFolder As Object 
    Dim objFile As Object 
    Dim i As Integer 
    objFSO = CreateObject("Scripting.FileSystemObject") 

    For month As Integer = 11 to 12 
     Dim folderPath As String = "C:\Users\Admin\Desktop\Test\2015\" & month & "-16" 
     Console.WriteLine("Folder path = " & folderPath) 
     objFolder = objFSO.GetFolder(folderPath) 
     i = 1 
     For Each objFile In objFolder.Files 
      ' Cells(i + 1, 1) = objFile.Name 
      Console.WriteLine("Cells(" & (i + 1) & ", 1) = " & objFile.Name) 
      ' Cells(i + 1, 2) = objFile.Path 
      Console.WriteLine("Cells(" & (i + 1) & ", 2) = " & objFile.Path) 
      i = i + 1 
     Next objFile 
    Next month 

    End Sub 
End Module 

如果您还需要循环一年，您可以将上面的两个循环放在另一个循环内多年。下面的代码工作，从2016年至2099年

Sub Example1() 
Dim objFSO As Object 
Dim objFolder As Object 
Dim objFile As Object 
Dim i As Integer 
Set objFSO = CreateObject("Scripting.FileSystemObject") 

For year As Integer = 16 to 99 
    For month As Integer = 11 to 12 
     Dim folderPath As String = "C:\Desktop\Test\2015\" & month & "-" & year 
     Set objFolder = objFSO.GetFolder(folderPath) 
     i = 1 
     For Each objFile In objFolder.Files 
      Cells(i + 1, 1) = objFile.Name 
      Cells(i + 1, 2) = objFile.Path 
      i = i + 1 
     Next objFile 
    Next month 
Next year 

End Sub