Option Explicit
Public Sub Test_EXIF()
Dim objImage As Object
Dim objProp As Object
On Error Resume Next
Set objImage = CreateObject("WIA.ImageFile")
If CBool(Err.Number) Then
Call MsgBox("CreateObject(""WIA.ImageFile"") fehlgeschlagen.", vbCritical)
Exit Sub
End If
Call objImage.LoadFile("d:\bild.jpg")
If CBool(Err.Number) Then
Call MsgBox("LoadFile() fehlgeschlagen.", vbCritical)
Exit Sub
End If
For Each objProp In objImage.Properties
Debug.Print objProp.Name; Tab(35); objProp.Value
Next
Set objImage = Nothing
End Sub