如何比较文件夹的上次修改日期是否与当前日期匹配？VBA

Sub CompareFolderModifiedDate()
    Dim fso As Object
    Dim folderPath As String
    Dim folder As Object
    Dim lastModifiedDate As Date
    
    ' 设置文件夹路径
    folderPath = "C:\Path\To\Folder"
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件夹对象
    Set folder = fso.GetFolder(folderPath)
    
    ' 获取文件夹的上次修改日期
    lastModifiedDate = folder.DateLastModified
    
    ' 比较上次修改日期与当前日期
    If DateValue(lastModifiedDate) = DateValue(Now) Then
        MsgBox "文件夹的上次修改日期与当前日期匹配。"
    Else
        MsgBox "文件夹的上次修改日期与当前日期不匹配。"
    End If
    
    ' 释放对象
    Set folder = Nothing
    Set fso = Nothing
End Sub