VBA -使用日期搜索条件遍历网络位置上的多个子文件夹/提高搜索速度

Sub SearchFoldersByDate()
    Dim rootFolder As String
    Dim searchDate As Date
    
    ' 设置根文件夹路径和搜索日期
    rootFolder = "\\network\path\to\folder"
    searchDate = DateSerial(2022, 1, 1) ' 设置为需要搜索的日期
    
    ' 调用递归函数搜索文件夹
    SearchSubFolders rootFolder, searchDate
End Sub

Sub SearchSubFolders(folderPath As String, searchDate As Date)
    Dim subFolder As Object
    Dim subFolderName As String
    Dim subFolderPath As String
    Dim file As Object
    Dim fileName As String
    Dim fileDate As Date
    
    ' 遍历当前文件夹下的所有子文件夹
    For Each subFolder In CreateObject("Scripting.FileSystemObject").GetFolder(folderPath).SubFolders
        subFolderName = subFolder.Name
        subFolderPath = subFolder.Path
        
        ' 遍历当前子文件夹下的所有文件
        For Each file In CreateObject("Scripting.FileSystemObject").GetFolder(subFolderPath).Files
            fileName = file.Name
            fileDate = file.DateCreated ' 可以根据需要选择其他日期属性，如DateLastModified
            
            ' 判断文件日期是否符合搜索条件
            If fileDate = searchDate Then
                ' 执行相应操作，如打印文件路径
                Debug.Print subFolderPath & "\" & fileName
            End If
        Next file
        
        ' 递归调用搜索子文件夹
        SearchSubFolders subFolderPath, searchDate
    Next subFolder
End Sub