 |  |  |  |  |  |  |  |
Need to read "Title tag" and "original date" of pictures
Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site
 |
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".
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".
[quote=Kees Baltus;350397]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
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") ThenMsgBox "Date of original = " & Img.Properties("36867").Value
Else
MsgBox "Datecreated = " & f.DateCreated
End If
[quote=Kees Baltus;353817]
•
•
•
•
Originally Posted by Kees Baltus 
I need to read "Title tag" and "original date"of pictures.
I installed WIAaut.dll and put Commondialog on form.
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")
MsgBox "Date of original = " & Img.Properties("36867").Value
Else
MsgBox "Datecreated = " & f.DateCreated
End If
|
Similar Threads
- Help with "System Restore" (Windows NT / 2000 / XP)
- My Site Says "Untitled Document" (HTML and CSS)
- Removal of "Home Search Assistant", "Search Extender", & "Shopping Wizard" (Viruses, Spyware and other Nasties)
- This ought to be simple - extra spaces (PHP)
- "page cannot be displayed" only w/ router (Networking Hardware Configuration)
- Fresh "Safe Mode" HijackThis Log (Viruses, Spyware and other Nasties)
- Problems with "Bridge.dll" (Viruses, Spyware and other Nasties)
Other Threads in the Visual Basic 4 / 5 / 6 Forum
- Previous Thread: Visual Basic 4 Upgrades?
- Next Thread: expanding my knowledge
| Thread Tools | Search this Thread |
Latest Visual Basic 4 / 5 / 6 Posts
- Today's Posts
- Unanswered Threads
Related Forum Features
Tag cloud for Visual Basic 4 / 5 / 6
* 6 429 2007 access activex add age append application basic beginner birth bmp calculator cd cells.find click client code college column component connection connectionproblemusingvb6usingoledb copy creat ctrl+f data database datareport date delete dissertations dissertationthesis dissertationtopic edit error excel excelmacro file filename form hardware header iamthwee image inboxinvb internetfiledownload keypress label listbox listview liveperson login looping machine microsoft movingranges number objectinsert open oracle password prime program prompt range-objects readfile reading record refresh remotesqlserverdatabase report retrieve save search sendbyte sites sort sql sql2008 sqlserver subroutine table tags textbox time timer urldownloadtofile vb vb6 vb6.0 vba visual visualbasic visualbasic6 web window windows
