Boa noite!!

Tente..

Sub AleVBA_14695()

Dim oFS As Object
Set oFS = CreateObject("Scripting.FileSystemObject")

Dim aFile, cPath, L
cPath = Range("C3")
cPath = "C:UsersaleVBA"

aFile = Dir(cPath & "*.txt")
L = 6

Do While aFile <> ""
    Cells(L, 3) = aFile
    Cells(L, 4) = oFS.GetFile(cPath & aFile).Datelastmodified
    aFile = Dir
    L = L + 1
Loop

End Sub

Att

CRuzado em http://www.tomasvasquez.com.br/forum/vi ... OhoyiwelzM

    Sub loopArquivos()
    Dim Arquivo

    Caminho = Range("C3")
    l = 2
    Arquivo = Dir("C:*.txt")
    'ou
    'Arquivo = Dir(Caminho & "*.srt")

    Do While Arquivo <> ""
    Cells(l, 1) = Arquivo
    Cells(l, 2) = FileDateTime("C:" & Arquivo)
    'ou
    'Cells(l, 2) = FileDateTime(Caminho & Arquivo)
    Arquivo = Dir

    l = l + 1
    Loop

    End Sub