Сравнение времени и даты

[Nazar]

Есть 4 файла с одинаковым названием. Нужно выбрать из них наиболее "свежий", т.е. тот, в который изменения вносились позднее.
Дату и время изменения файла получаем с помощью
FileDateTime(путь к файлу) в виде ГГГГ.ММ.ДД ЧЧ.ММ.СС.
Как найти наиболее "свежий" файл?

[Sanya Z]

Попробуй сортировкой массива: сначала по годам, после по месяцам и по дням

[Nazar]

Массивом я уже думал, может есть способ проще?

[GSerg]

Option Explicit

Private Sub Form_Load()
Dim s As String, f As String, t As Date, tt As Date

s = Dir("c:\")
Do While Len(s)
tt = FileDateTime("c:\" & s)
If tt > t Then t = tt: f = s
s = Dir
Loop
MsgBox f & vbNewLine & t
End Sub