访问VBA列出文件夹及其所有子文件夹中的所有文件

Question

我正在尝试在Access中创建一些代码，这些代码将遍历一个文件夹，即C：\ Users \ ANON \ LotsofSubFolders，并在与特定名称匹配的所有子文件夹中找到最新文件。

例如，在C：\ Users \ ANON \ Data中，有一个文件夹用于此2018、2019 ...并且在每个2018和2019中都有另一个文件夹，即Jan，Feb等。 我希望能够找到名为“ FindFile_1.xlsx”的最新文件。

示例文件路径： C：\ Users \ ANON \ Data \ 2019 \ Jan \ FindFile_1.xlsx C：\ Users \ ANON \ Data \ 2019 \ Feb \ FindFile_1.xlsx C：\ Users \ ANON \ Data \ 2018 \ Dec \ FindFile_1.xlsx

我已经能够使用以下脚本找到第一个子文件夹，即2018或2019，但是它不会进入下一级别，依此类推。

Sub GetSubFolderNames()
Dim MyFSO As FileSystemObject
Dim MyFile As File
Dim MyFolder As Folder
Dim MySubFolder As Folder

Set MyFSO = New Scripting.FileSystemObject
Set MyFolder = MyFSO.GetFolder("C:\Users\sumit\Desktop\Test")

For Each MySubFolder In MyFolder.SubFolders
    Debug.Print MySubFolder.Name
Next MySubFolder

End Sub

然后，我面临一个挑战，一旦我拥有所有子文件夹，便试图查找名为xxxx的最新文件。