Copiando foto da Cell a PC viene modificata data ultima modi

[ricky53]

Ciao a tutti,
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

[Dylan666]

Ma il nome del file riporta la data di creazione, non di modifica.
Nel tuo caso è stato creato il giorno 14 e modificato il giorno 15 (settembre 2016).

La data di creazione (essendo una foto) corrisponde anche alla "Data acquisizione" degli attributi EXIF

[Dylan666]

Aggiungo un esempio di codice che magari ti aiuta (AI generated):

Codice: Seleziona tutto

Sub EstraiDataAcquisizioneWIA()
    Dim Imgfile As Object
    Dim filePath As String
    Dim Rig As Long, Col As Long
    Dim prop As Object
    Dim dataTrovata As String
    Dim i As Long
   
    Rig = 1
    Col = 1
   
    ' Esempio su una specifica riga di Excel (Colonne A = Percorso, B = Nome File)
    ' Supponendo che in Cells(I, "A") ci sia il percorso e in Cells(I, "B") il file
    Dim UltimaRiga As Long
    UltimaRiga = Cells(Rows.Count, "A").End(xlUp).Row
   
    For i = 1 To UltimaRiga
        filePath = Cells(i, "A").Value & IIf(Right(Cells(i, "A").Value, 1) = "\", "", "\") & Cells(i, "B").Value
       
        On Error Resume Next
        Set Imgfile = CreateObject("WIA.ImageFile")
        Imgfile.LoadFile filePath
       
        If Err.Number = 0 Then
            dataTrovata = ""
            ' Scorre le proprietà dell'immagine alla ricerca della data di scatto
            For Each prop In Imgfile.Properties
                ' 36867 corrisponde solitamente a DateTimeOriginal nei tag EXIF
                If prop.PropertyID = 36867 Or prop.Name = "DateTime" Then
                    dataTrovata = prop.Value
                    Exit For
                End If
            Next prop
           
            If dataTrovata <> "" Then
                ' Formato EXIF standard: "YYYY:MM:DD HH:MM:SS" -> lo normalizziamo
                dataTrovata = Replace(Left(dataTrovata, 10), ":", "-") & Mid(dataTrovata, 11)
                Cells(i, Col + 2).Value = dataTrovata
            Else
                Cells(i, Col + 2).Value = "EXIF non disponibile"
            End If
        Else
            Cells(i, Col + 2).Value = "Errore lettura file"
        End If
        On Error GoTo 0
    Next i
   
    MsgBox "Elaborazione WIA terminata!", vbInformation
End Sub

[Anthony47]

Ciao Ricky, ciao Dylan.
Il codice pubblicato da Dylan potrebbe alimentare un equivoco nella riga

Codice: Seleziona tutto

If prop.PropertyID = 36867 Or prop.Name = "DateTime" Then

Questa infatti restituisce o la data di scatto dell'immagine oppure la data di modifica, la prima che il loop For Each prop In Imgfile.Properties /Next prop trova

Per estrarre separatamente questi due parametri bisognerebbe usare:
-per la data di scatto, Name = "DateTimeOriginal" oppure prop.PropertyID = 36867
-per la data di modifica dell'immagine, prop.Name = "DateTime" or prop.Name = "ModifyDate" oppure prop.PropertyID = 306

Almeno questo dice Gemini

[ricky53]

Ciao,
Grazie per te risposte.

Per Dylan:

Ma il nome del file riporta la data di creazione, non di modifica.
Nel tuo caso è stato creato il giorno 14 e modificato il giorno 15 (settembre 2016).

La data di creazione (essendo una foto) corrisponde anche alla "Data acquisizione" degli attributi EXIF
Avatar utente
Dylan666
Moderatore

Post: 40412
Iscritto il: 18/11/03 16:46

Si certo a meno di non copiare il file sul PC (con l’app del mio cellulare), allora la data di creazione diventa la data in cui il file è stato copiato. E qui nascono le mie esigenze.


Rileggendo meglio quanto ho scritto devo aggiungere dei chiarimenti.
A più tardi.
Grazie ancora

[Dylan666]

Ciao,
Si certo a meno di non copiare il file sul PC (con l’app del mio cellulare), allora la data di creazione diventa la data in cui il file è stato copiato. E qui nascono le mie esigenze.

E da qui nasce la necessita degli EXIF, cioè dati aggiuntivi, indipendenti dal sistema operativo, che non vengono alterati dalle copie su supporti diversi e riguardano specificatamente le foto.

https://www.pc-facile.com/glossario/exif/

[ricky53]

Ciao,
certamente ci "GIOCO" da diversi anni.
Grazie ad Anthony ho estratto la città, l'indirizzo e molti altri dati del luogo dello scatto partendo dai dati del GPS.

Adesso sto facendo dei riscontri.
Comunque utilizzando
Set Imgfile = CreateObject("WIA.ImageFile")

l'elaborazione si rallenta molto.

Vi aggiorno.

[ricky53]

Ciao,
la notte porta consiglio.......

Dopo aver fatto varie elaborazioni ho potuto verificare su circa 18.000 foto che le situazioni che si presentavano erano le più disparate, addirittura ottenevo date minori di quelle che vedevo nel nome del file.

CONCLUDO
dicendo che ho adottato la soluzione di estrarre la data di scatto e l'ora di scatto dal "nome della foto".

Cosa facilissima perchè ho solo poche situazioni di tipologia di impostazioni di inizio del nome della foto:
IMG_
IMGP
DSCN
RSCN
"anno" che inizia per "19" o per "20"

Quindi con dei semplici "SE" riesco e ricavare Data di Scatto e Ora di Scatto.

Fatto questo procedo a dare il pasto il file excel ottenuto al programma che mi ricava la località dello scatto con Città, indirizzo, altitudine.