VBA – Função FileDateTime

FileDateTime – Descrição

Retorna a data e a hora em que um arquivo foi criado ou modificado pela última vez.

Exemplo Simples de FileDateTime

Suponha que um arquivo “D:\teste.txt” tenha sido modificado pela última vez em 21/10/2019 09:41:30.

MsgBox FileDateTime("D:\teste.txt")

Isso retornará 21/10/2019 09:41:30.

Sintaxe de FileDateTime

No editor do VBA, você pode digitar “FileDateTime(” para ver a sintaxe da função FileDateTime:

A função FileDateTime contém um argumento:

PathName (Nome Caminho): Uma expressão de cadeia de caracteres que representa um arquivo/pasta/drive.

Exemplos da Função FileDateTime do Excel VBA

Para listar a hora da última modificação da pasta e dos arquivos na unidade C, você pode usar o código a seguir.

Sub Dir_Exemplo()
    Dim NomeArquivo  As String
    Dim NomeCompleto As String
    Dim rng          As Range
    Dim i            As Integer

    Set rng = Range("A1")
    
    NomeArquivo = Dir("C:\", vbDirectory)
    i = 1
    
    Do
        NomeCompleto = "C:\" & NomeArquivo
        rng.Offset(i, 0) = NomeArquivo
        rng.Offset(i, 1) = FileDateTime(NomeCompleto)
        rng.Offset(i, 2) = FileLen(NomeCompleto)
        rng.Offset(i, 3) = GetAttr(NomeCompleto)
        
        
        NomeArquivo = Dir
        If NomeArquivo = "" Then Exit Do
        i = i + 1
    Loop
End Sub

O resultado será semelhante ao seguinte.