0

I need to read "Title tag" and "original date"of pictures.
I installed WIAaut.dll and put Commondialog on form.
:'( I can read all items from the Img.Properties with a loop.

It is difficult to find out how to get only the "Title tag" and "DateTimeOriginal".

1
Contributor
2
Replies
3
Views
10 Years
Discussion Span
Last Post by Kees Baltus
0

I need to read "Title tag" and "original date"of pictures.
I installed WIAaut.dll and put Commondialog on form.
:'( I can read all items from the Img.Properties with a loop.


SOLUTION:
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Set fs = CreateObject("Scripting.FileSystemObject")

Img.LoadFile "C:\Yvonne.jpg"
Set f = fs.GetFile("c:\Yvonne.jpg")

:) If Img.Properties.Exists("36867") Then
MsgBox "Date of original = " & Img.Properties("36867").Value
Else
MsgBox "Datecreated = " & f.DateCreated
End If

0

I need to read "Title tag" and "original date"of pictures.
I installed WIAaut.dll and put Commondialog on form.
:'( I can read all items from the Img.Properties with a loop.


SOLUTION:
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Set fs = CreateObject("Scripting.FileSystemObject")

Img.LoadFile "C:\Yvonne.jpg"
Set f = fs.GetFile("c:\Yvonne.jpg")

:) If Img.Properties.Exists("36867") Then
MsgBox "Date of original = " & Img.Properties("36867").Value
Else
MsgBox "Datecreated = " & f.DateCreated
End If

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.