VBA fecha de creación y de modificación de un archivo
Estoy intentando conocer, desde excel, con VBA la fecha de creación de un archivo. He intentado con el siguiente código:
Dim fSo As Object
Dim MiArchivo as string
Dim MiFecha as date
MiArchivo = "c:\EsteArchivo.pdf"
Set fSo = CreateObject("Scripting.FileSystemObject")
MiFecha = fSo.getfile(MiArchivo).datecreated
MsgBox "Fecha de Creación: " & MiFecha
Set fSo = Nothing
La fecha que me devuelve es la de "Modificación" que se corresponde a cuando fue copiado ese archivo pero que es muy posterior a la fecha en la que fue "Creado por primera vez".
¿Alguna solución?
1 respuesta
Respuesta de Elsa Matilde
1
La instrucción es la correcta, y devuelve la fecha de creación tal como se observa en mi imagen.
Probalo con este código:
Sub fechaCreacion()
'x Elsamatilde
Dim fc
Dim librox As String
Set fc = CreateObject("Scripting.FileSystemObject")
'identificar el libro del cual necesitamos el dato
librox = ThisWorkbook.Path & "\" & "Feedback2022.xlsm"
'mostrarlo en un mensaje
MsgBox "El libro fue creado el: " & fc.GetFile(librox).DateCreated
'o colocar la fecha en alguna celda
ActiveCell.Value = fc.GetFile(librox).DateCreated
End Sub
