kendimce yeni keşfettiğim şeyleri paylaşıyorum
sizin yazdığınız doğru elbet ama şu kod da isimde geçen tarihe göre en büyük tarihli dosyayı buluyor
Private Function lastDateFile(Directory As String, criteria As String, Optional FileSpec As String = "*")
Dim path As String
Dim count As Long
Dim number As Long
path = Directory & criteria & " ("
count = 0
Do While Len(Dir(path & Format(Now() - count, "dd.mm.yyyy") & ")." & FileSpec)) = 0
number = Len(Dir(path & Format(Now() - count, "dd.mm.yyyy") & ")." & FileSpec))
count = count + 1
Loop
lastDateFile = path & Format(Now() - count, "dd.mm.yyyy") & ")." & FileSpec
End Function