Conseguir fecha ult. actualizacion de fichero en VBasic

[nazkatuta]

Hola,

con un objeto File de FileSystem Object una de las propiedades es DateLastModified
Aqui te pongo una funcion de ejemplo a la que tienes que llamar pasandole un string con la ruta completa del archivo.

Código:

Sub MostrarInfo(rutaArchivo)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = UCase(filespec) & vbCrLf
    s = s & "Creado: " & f.DateCreated & vbCrLf
    s = s & "Accedido por ultima vez: " & f.DateLastAccessed & vbCrLf
    s = s & "Ultima Modificacion: " & f.DateLastModified  
    MsgBox s, 0, "Informacion de Archivo"
End Sub

espero que te sirva, suerte!