Option Explicit
Sub LetzteModDatei()
Dim fso As Object
Dim fil As Object
Dim dtArr() As Variant
Dim vFilename() As Variant
Dim i As Long, iIndex As Long
Dim sPfad As String
sPfad = "c:\Test\"
Set fso = CreateObject(class:="Scripting.FileSystemobject")
ReDim dtArr(fso.GetFolder(sPfad).Files.Count - 1)
ReDim vFilename(fso.GetFolder(sPfad).Files.Count - 1)
For Each fil In fso.GetFolder(sPfad).Files
vFilename(i) = fil.Path
dtArr(i) = CDbl(fil.DateLastModified)
i = i + 1
Next
iIndex = Application.Match(Application.WorksheetFunction.Max(dtArr), dtArr(), 0) - 1
MsgBox CDate(Application.WorksheetFunction.Max(dtArr)) & vbNewLine & vFilename(iIndex), vbInformation, "Zuletzt geändertes File:"
End Sub