View Single Post
Old 24-02-2012, 17:32
shelbym's Avatar
shelbym shelbym is offline
Senior Member
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,778
Blog Entries: 11
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Exif

I was able to do this with the ExifReader class found here: Exif reader class/dll for VB 6

Then to use is, try something like:
Sub ReadEXIFData()
    Dim objExif As New ExifReader
    Dim txtExifInfo As String
    objExif.Load "D:\Temp\EXIF\2.JPG"
    txtExifInfo = objExif.Tag(Orientation)
    MsgBox txtExifInfo
End Sub
Hope that helps,

Reply With Quote