Originariamente inviato da nicola75ss
Nell'editor vba aggiungi il riferimento a Microsoft Office X Object Library. Poi prova ad assegnare a un pulsante questa macro

codice:
Option Compare Database

Private Sub Comando0_Click()
    Dim fs As FileSearch
    Dim directory As String
    Dim i As Integer
     
    directory = "c:\tuo_path\tua_cartella"
    Set fs = Application.FileSearch
    With Application.FileSearch
        .NewSearch
        .Filename = "*.txt"
        .LookIn = directory
        .SearchSubFolders = True
        .LastModified = msoLastModifiedAnyTime
        .Execute msoSortByLastModified, msoSortOrderDescending
    End With
    If fs.FoundFiles.Count > 0 Then MsgBox fs.FoundFiles(1)

End Sub
e vedi se ti restituisce il file più recente.
Scusa la mia incompetenza:come faccio ad aggiungere il riferimento nell'editor vba?
Senza inserirlo facendo il debug mi si blocca su Dim fs As FileSearch dandomi l'errore "Tipo definito dall'utente non definito".

P.S. Il codice l'ho inserito in un modulo come Public Function per poterlo richiamare da diverse Forms
codice:
Option Compare Database
Option Explicit

Public Function Comando0_Click()
    Dim fs As FileSearch
    Dim directory As String
    Dim i As Integer
     
    directory = "c:\tuo_path\tua_cartella"
    Set fs = Application.FileSearch
    With Application.FileSearch
        .NewSearch
        .FileName = "*.txt"
        .LookIn = directory
        .SearchSubFolders = True
        .LastModified = msoLastModifiedAnyTime
        .Execute msoSortByLastModified, msoSortOrderDescending
    End With
    If fs.FoundFiles.Count > 0 Then MsgBox fs.FoundFiles(1)

End Function