Klasördeki Son Eklenen Dosyayı Getirmek

Bende ilk defa görüyorum bu tip değişken tanımlamayı Siz başka bir karakter veya kelime kullanabilirsiniz.

ilk mesajdaki kodun son hali şöyle oldu

Private Sub findLastExcel()

    Dim lastFile As String

    lastFile = newestFile("C:\_egitim\", "*.xls", True)

    If (InStr(lastFile, ",") > 0) Then

        Me.txtLastFile = Split(lastFile, ",")(0)

        Me.txtLastFile.ControlTipText = Split(lastFile, ",")(1)

    Else

        Me.txtLastFile = lastFile

    End If

    

End Sub





Function newestFile(Directory As String, Optional FileSpec As String = "*.*", Optional bringDate As Boolean = False) As String

On Error GoTo Err_hata

    Dim result As String

    result = ""

    

    Dim FileName As String

    Dim MostRecentFile As String

    Dim MostRecentDate As Date

     

    FileName = Dir(Directory & FileSpec)

    

    If FileName <> "" Then

        MostRecentFile = FileName

        MostRecentDate = FileDateTime(Directory & FileName)

        Do While FileName <> ""

            If FileDateTime(Directory & FileName) > MostRecentDate Then

                 MostRecentFile = FileName

                 MostRecentDate = FileDateTime(Directory & FileName)

            End If

            FileName = Dir

        Loop

    End If

    

    

    result = MostRecentFile

    If (bringDate) Then result = result & "," & MostRecentDate

    

Exit_kod:

    newestFile = result

    Exit Function



Err_hata:

    result = ""

    MsgBox Err.Description

    Resume Exit_kod

End Function

---

8. mesajdaki kod içerisine 2. mesajdaki kodu entegre etsek
yani 1.kod ile bulunan dosya aynı zamanda dosya adındaki tarih olarak da son tarih ise
şartını nasıl koyabiliriz

şu üç dosya birbirinin kopyası 

1. mesajdaki kod değiştirme tarihine göre son dosyayı getiriyor
ama tarihleri aynı ise alfabetik olarak ismi en küçük olanı getiriyor
yani burada 09.05.2020 yi getiriyor. bu durumda 
isimdeki tarihe göre son dosyayı bulmak daha güvenli

Sayın @accessman Kusura bakmayın sorunuzu iyi okumadığımdan ben sadece en büyük tarihli dosyayı bulamaya  çalıştığınızı anladım.

son mesajı üzerinize alınmayın
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

Yukardaki kodları kendinize uyarlayabilirsiniz