Encontrar o arquivo com a maior data de criação (Data em que foi criado o Arquivo)

Uma pequena função porém que poderá ser bastante últil... A estou utilizando para restauração de Backup's contidos em uma pasta....

Sub VerificaDataArq()
Dim fso, Diretorio As String, Pasta, Arquivo
Dim DtData As Date, DtDataMax As Date
Dim ArquivoMax As String
Diretorio = CurrentProject.Path & "\Backup"

Set fso = CreateObject("Scripting.FileSystemObject")
Set Pasta = fso.GetFolder(Diretorio)
For Each Arquivo In Pasta.Files
If Arquivo Like "*.accdb" Then
DtData = Format(Arquivo.DateCreated, "dd-mm-yyyy")
    If DtData > DtDataMax Then
        DtDataMax = DtData
        ArquivoMax = Arquivo.Name
    End If
End If
Next
MsgBox "Maior Data " & DtDataMax & "   " & Arquivo & "", vbInformation, "Atenção"
Set fso = Nothing: Set Pasta = Nothing
End Sub

Enjoy!!!

*****************************************************************************************************************



Repositório de Exemplos Ms Access
Sala destinada à colocação de exemplos em Ms Access (Código aberto) de e para
todos os Utilizadores Cadastrados.
Não tirar duvidas nesta sala.