Const Path = "C:\"
 
        Dim Fso As Object, File As Object, FileName As String, FileTime As Date
 
        Fso = CreateObject("Scripting.FileSystemObject")
 
        For Each File In Fso.GetFolder(Path).Files
            If FileTime < File.DateLastModified Then
                FileTime = File.DateLastModified
                FileName = File.Path
 
            End If
 
        Next