Handling Exif and IPTC image tags

To create a new Exif object

Dim Exif As New THBExif

Load the exif and iptc data from an existing jpeg or tif file.

Exif.LoadMetadata strCurrentFile

Let’s get the exif tags

Dim ar As THBArrayString
Set ar = Exif.ExifGet

Add a new entry, attention this may create duplicate entries, remove the existing entry before.

Exif.ExifAdd "Image.Software", "THBImage", thbetAscii
Exif.ExifAdd "Image.Artist", "Donald Duck", thbetAscii

Delete entries.

Exif.ExifDelete "Image.Artist"

Edit existing values.

Exif.ExifSet "Image.Artist", "Donald Duck", thbetAscii

After modifying we save the changed metadata. either to a new file.

'Save to our new file
Exif.WriteMetadataToNewFile strOperationFile, False

Or just edit and update data. ‘Add things and write back Set Exif = New THBExif Exif.LoadMetadata strOperationFile Exif.ExifAdd “Image.Copyright”, “Added later”, thbetAscii Exif.WriteMetadata