Change Picture Date Taken

[Jaye7]

I would like to create a spreadsheet to change the Date Taken on pictures.
There are around 2000 pictures.

The file location is in column A (C:\Test)
The file name is in column B (Pic1.jpg)
The new Date Taken is in column C (11/3/2018) each one will be different
The new Date Taken Time is in column D (11:22:02) each one will be different
So it loops through the rows and changes the Date Taken to the values in columns C and D

 

[Fennek]

Hello,

in my archiv I found a code to modify the FileModified date:

Sub M_snb()
  MsgBox FileDateTime("G:\OF\__basaal.xlsb")
 
  CreateObject("shell.application").Namespace("G:\OF\").Items.Item("__basaal.xlsb").ModifyDate = DateAdd("d", -2, Now)
 
  MsgBox FileDateTime("G:\OF\__basaal.xlsb")
End Sub

If you check the namespace of a file(i form 1 to 256) you will find the number for "picture taken" and, maybe, you can adopt the code.

regards

(if there is a simple pattern "always add 1 hour" Adobe Lightroom of exif.exe can do it)

 

[Fennek]

again from the archiv:

identify the codes for namespace.items

Sub Datei_Attribute()
iPath = "c:\temp\"
iFile = "xl-to-wd-book.xlsm"

With CreateObject("shell.application").Namespace(iPath)
    For i = 0 To 255
    if .getDetailsOf(.Items.Item(iFile), i) <> "" then        Debug.Print i, .getDetailsOf(iFile, i), .getDetailsOf(.Items.Item(iFile), i) 'Name + Inhalt
    Next i
End With
End Sub

 

[Jaye7]

I can't find any modify creation date using namespace.items, I googled but nothing comes up, it does list Creation Time but no .modify name