sto elaborando le foto che avevo un vecchio cellulare di cui avevo fatto la copia tempo fa sul mio PC.
Volevo leggere i dati EXIF ed ho preso un programma abbastanza complesso che ho realizzato tempo fa grazie ad Anthony (con l'occasione lo saluto).
Tutto è andato bene. Scorrendo i risultati ho notato che alcuni file avevano la data e ora di "Ultima Modifica" diversa da quella presente nel nome del file. La cosa mi è sembrata strana.
Controlla e ricontrolla ho verificato che a seconda del codice che utilizzavo alcuni file avevano date diverse.
Il riscontro l'ho fatto anche selezionando il file con "Esplora File" ciò che vedevo in "Dettagli non era uguale al nome del file
Copio le righe significative del codice che utilizzo (su Excel 2019 in VBA):
- Codice: Seleziona tutto
' Valori ottenuti con:
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.getfolder(CARTELLA)
Set Sf = F.SubFolders
Set mFile = F.Files
For Each Pf1 In mFile
Cells(Rig, Col + 7) = Pf1.DateLastModified 'data ultima modifica al file
Rig = Rig + 1
next
' Data e ora ultima modifica 15/09/2016 – 00:31:44 ===> Valori ERRATI
' Valore ottenuto con:
Set Imgfile = CreateObject("WIA.ImageFile")
Imgfile.LoadFile (Cells(I, "A") & "\" & Cells(I, "B"))
Cells(I, 3).Value = Replace(Left(Imgfile.Properties("DateTime"), 10), ":", "-")
' Data e Ora Scatto 14/09/2016 – 18:12:28 ===> Valori Corretti a parte un secondo di ferrenza
Questo è il nome del file: Nome File: IMG_20160914_181227.jpg
https://drive.google.com/file/d/1WwVrdvR8kKTfPT7aNIvyJVmqdnLhBgoD/view?usp=drive_link
Vorrei capire il perché di queste differenze.
Grazie a tutti
