VBA 64 bit - EXIF DateTimeOriginal

User avatar
ErikJan
BronzeLounger
Posts: 1254
Joined: 03 Feb 2010, 19:59
Location: Terneuzen, the Netherlands

VBA 64 bit - EXIF DateTimeOriginal

Post by ErikJan »

This is a repeat (with a tweak) of a question I asked some time back...

I'm looking for code (64bit) to extract the EXIF DateTimeOriginal (and CreateDate) tags from TIF and JPG files.

As I need to process thousands of files (in many subfolders), I'd like to avoid using EXIFTOOL (unless I can make one call and pipe that to a TXT-file that I can pick up and process).

Any thoughts, suggestions or code snippets would be very much appreciated.

User avatar
SpeakEasy
4StarLounger
Posts: 562
Joined: 27 Jun 2021, 10:46

Re: VBA 64 bit - EXIF DateTimeOriginal

Post by SpeakEasy »

You might want to look at the ExtendedProperty example at the end of https://eileenslounge.com/viewtopic.php ... 30&t=40533

and try

Debug.Print "Taken: " & .ExtendedProperty("System.Photo.DateTaken")

As I presume you are aware, not all TIF or jpg files bother filling in the EXIF data

User avatar
ErikJan
BronzeLounger
Posts: 1254
Joined: 03 Feb 2010, 19:59
Location: Terneuzen, the Netherlands

Re: VBA 64 bit - EXIF DateTimeOriginal

Post by ErikJan »

Oh yes... I adjusted the code to fit mine and it works. Then I checked if this field matches what I'm looking for (the date field in LightRoom) and it looks like it does. So happy :-). Thanks!!