Member Avatar for Kees Baltus

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
  • 109 Views
  • 5 Days Discussion Span
  • Latest Post Latest Post by Kees Baltus
Member Avatar for Kees Baltus

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

Member Avatar for Kees Baltus

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

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.