Sub readDate()
Dim clGdip As clgdiplus
Set clGdip = New clgdiplus
clGdip.OpenFile "C:\IMG_1234.JPG"
' Date of exposure
Debug.Print Format(clGdip.GetExifData(TagDateTimeOriginal), "yyyy/mm/dd" & " " & "hh:nn:ss")
Set clGdip = Nothing
End Sub
取得できるタグとしては、
TagExposureTime = &H829A&
TagFNumber = &H829D&
TagExposureProgram = &H8822&
TagSpectralSensitivity = &H8824&
TagISOSpeedRatings = &H8827&
TagShutterSpeedValue = &H9201&
TagApertureValue = &H9202&
TagBrightnessValue = &H9203&
等、多数が存在する。詳細はクラスの中味(最初の方の列挙体)を確認下さい。