VBA: 获取指定文件夹内最新文件的路径

Function getLatestFilePath(origin As String) As String

    '获取最近的文件路径
    
    Dim filename As String, Finalname As String, folder As String
    
    folder = Left(origin, InStrRev(origin, "\"))
    
    Finalname = Dir(origin)
    
    filename = Dir(origin)
    
    Do While filename <> ""
    
        If filename > Finalname Then
        
            Finalname = filename
        
        End If
        
        filename = Dir()
        
    Loop
    
    getLatestFilePath = folder & Finalname
    
    Exit Function
    
End Function

Function getLatestFileName(origin As String) As String

    '获取最近的文件名称
    
    Dim filename As String, Finalname As String, folder As String
    
    folder = Left(origin, InStrRev(origin, "\"))
    
    Finalname = Dir(origin)
    
    filename = Dir(origin)
    
    Do While filename <> ""
    
        If filename > Finalname Then
        
            Finalname = filename
        
        End If
        
        filename = Dir()
        
    Loop
    
    getLatestFileName = Finalname
    
    Exit Function
    
End Function

Function IsFileExists(path As String) As Boolean

    On Error Resume Next
    If Len(Dir(path)) > 0 Then
    
        IsFileExists = True
        
        Exit Function
        
    Else
    
        IsFileExists = False
        
        Exit Function
        
    End If
    
    If Err.Number <> 0 Then
    
        IsFileExists = False
    
    End If
    
    On Error GoTo 0

End Function

Option Explicit

Sub test()

    Dim Origin_path As String, Object_Path As String, Object_Name As String
    
    Origin_path = "C:\Local\test\*"
    
    If IsFileExists(Origin_path) Then
    
        Object_Path = getLatestFilePath(Origin_path)
        Object_Name = getLatestFileName(Origin_path)
        
        MsgBox "最新的文件路径：" & Object_Path & vbNewLine & "最新的文件名称：" & Object_Name
    
    Else
    
        MsgBox "路径有误，请确认！"
    
    End If

End Sub