如何修改查找文件夹最早文件日期的VBA代码以查找最新文件日期？

嘿，这个需求改起来超简单！核心就是把原代码里「找最小日期」的逻辑直接换成「找最大日期」就行，我给你拆解清楚：

原代码的核心逻辑（找最早日期） #

通常找最早文件日期的代码，会先初始化一个极晚的日期（比如DateSerial(9999,12,31)），然后遍历每个文件，只要当前文件的日期比记录的日期更早，就更新记录值。

修改成找最新日期的关键步骤 #

1. 反转比较逻辑：把原代码里的<（判断是否更早）改成>（判断是否更新）
2. 调整初始日期：把初始值换成一个极早的日期（比如DateSerial(1900,1,1)），这样第一个文件的日期肯定会替换掉它；或者更稳妥的是先取第一个文件的日期作为初始值，避免空文件夹的问题。

完整的示例代码 #

Sub GetNewestFileDate()
    Dim fso As Object
    Dim targetFolder As Object
    Dim currentFile As Object
    Dim latestDate As Date
    
    ' 初始化文件系统对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 替换成你要查询的文件夹路径
    Dim folderPath As String
    folderPath = "C:\Your\Folder\Here"
    
    ' 检查文件夹是否存在，避免报错
    If Not fso.FolderExists(folderPath) Then
        MsgBox "指定的文件夹不存在！"
        Exit Sub
    End If
    
    Set targetFolder = fso.GetFolder(folderPath)
    
    ' 处理空文件夹的情况
    If targetFolder.Files.Count = 0 Then
        MsgBox "该文件夹内没有文件！"
        Exit Sub
    End If
    
    ' 初始化最新日期为第一个文件的修改日期（比用极早日期更稳妥）
    latestDate = targetFolder.Files(1).DateLastModified
    
    ' 遍历所有文件，查找最新日期
    For Each currentFile In targetFolder.Files
        ' 比较当前文件的修改日期和记录的最新日期
        If currentFile.DateLastModified > latestDate Then
            latestDate = currentFile.DateLastModified
        End If
    Next currentFile
    
    ' 输出结果，也可以写入Excel单元格，比如 Range("A1").Value = latestDate
    MsgBox "文件夹内最新的文件修改日期是: " & Format(latestDate, "yyyy-mm-dd hh:mm:ss")
    
    ' 释放对象，避免内存泄漏
    Set currentFile = Nothing
    Set targetFolder = Nothing
    Set fso = Nothing
End Sub

额外说明 #

• 如果你需要的是文件创建日期而不是修改日期，把代码里的DateLastModified换成DateCreated即可
• 代码里加了文件夹存在检查和空文件夹判断，比原代码更健壮，避免运行时报错

内容的提问来源于stack exchange，提问作者sat