[Resolvido]Classificação de arquivos em uma pasta do windows busca do arquivo mais recente

Bom dia Amigos,

Estou com um código de um arquivo excel, onde o mesmo busca o endereço do arquivo mais recente em uma pasta do windows, tentei adaptá-lo ao access, mas não funfou alguém poderia ver onde estou errando?

Option Compare Database

Private Function BuscarArquivos() As String
Dim FileSystem As Object
Dim Folder As Object
Dim File As Variant
Dim strCaminho As String
Dim strArquivo As String

Dim strDataHora As String


Set FileSystem = CreateObject("Scripting.FileSystemObject")

strCaminho = "P:\Willis\Arquivos\"


Set Folder = FileSystem.GetFolder(strCaminho)

Dim arr() As String

For Each File In Folder.Files


If Mid(File.Name, 1, 18) = "Ocorrencias_Diaria" Then
ReDim Preserve arr(i)
arr(i) = File.Name
i = i + 1
End If
Next

voidSortArray arr



BuscarArquivos = arr(0)


End Function

Public Sub voidSortArray(arr)

Dim strTemp As String
Dim i As Long
Dim j As Long
Dim lngMin As Long
Dim lngMax As Long
lngMin = LBound(arr)
lngMax = UBound(arr)

For i = lngMin To lngMax - 1
For j = i + 1 To lngMax
If arr(i) < arr(j) Then
strTemp = arr(i)
arr(i) = arr(j)
arr(j) = strTemp
End If
Next j
Next i

End Sub

Olá Junior,
você pode obter a data da criação do ficheiro, data do ultimo acesso ou modificação, veja:


Código utilizado na imagem:

Código:

Sub TesteDatas()
    Dim FileSystem As Object
    Dim Folder As Object
    Dim File As Variant
    Dim strCaminho As String
    
        Set FileSystem = CreateObject("Scripting.FileSystemObject")
        strCaminho = Application.CurrentProject.Path
        Set Folder = FileSystem.GetFolder(strCaminho)
      
        For Each File In Folder.Files
            Debug.Print File.Name & " | " & File.DateCreated & " | " & File.DateLastAccessed & " | " & File.DateLastModified
        Next
End Sub


Abra um Modulo cole e prima a tecla F5.
Fica a dica, espero que ajude.
Abraço

Olá Junior, como ficou a situação!
Os utilizadores do fórum merecem e agradecem o retorno.
Ficamos aguardar.
Abraço

Desculpe, pensei que havia enviado a resposta.

Acho que não cliquei em enviar, obrigado pela ajuda. consegui resolver.

Olá Junior,
Obrigado pelo retorno, os utilizadores do fórum agradecem.
Abraço