VBA - 如何获取 Excel 2010 目录中最后修改的文件或文件夹

VBA - 如何获取 Excel 2010 目录中最后修改的文件或文件夹

vba
Function GetLastModifiedFile(ByVal folderPath As String) As String
    Dim lastModifiedFile As String
    Dim lastModifiedTime As Date
    lastModifiedTime = DateSerial(1900, 1, 1) ' 初始化为一个较早的时间
    Dim fs As Object
    Dim folder As Object
    Dim file As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set folder = fs.GetFolder(folderPath)
    For Each file In folder.Files
        If file.DateLastModified > lastModifiedTime Then
            lastModifiedTime = file.DateLastModified
            lastModifiedFile = file.Name
        End If
    Next file
    GetLastModifiedFile = lastModifiedFile
End Function

vba
Function GetLastModifiedFolder(ByVal folderPath As String) As String
    Dim lastModifiedFolder As String
    Dim lastModifiedTime As Date
    lastModifiedTime = DateSerial(1900, 1, 1) ' 初始化为一个较早的时间
    Dim fs As Object
    Dim folder As Object
    Dim subFolder As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set folder = fs.GetFolder(folderPath)
    For Each subFolder In folder.SubFolders
        If subFolder.DateLastModified > lastModifiedTime Then
            lastModifiedTime = subFolder.DateLastModified
            lastModifiedFolder = subFolder.Name
        End If
    Next subFolder
    GetLastModifiedFolder = lastModifiedFolder
End Function

vba
Sub GetLastModifiedInfo()
    Dim folderPath As String
    folderPath = "C:\Path\To\Files" ' 替换为实际的文件夹路径
    Dim lastModifiedFile As String
    Dim lastModifiedFolder As String
    lastModifiedFile = GetLastModifiedFile(folderPath)
    lastModifiedFolder = GetLastModifiedFolder(folderPath)
    MsgBox "最后修改的文件：" & lastModifiedFile & vbCrLf & "最后修改的文件夹：" & lastModifiedFolder
End Sub