测试通过：
Dim theImage As Image = Image.FromFile("c:\aaa\IMG_20170625_142200.jpg")
Dim propItems() As System.Drawing.Imaging.PropertyItem = theImage.PropertyItems
Dim propItem As System.Drawing.Imaging.PropertyItem = theImage.GetPropertyItem(36867)
Dim propItemValue() As Byte = propItem.Value
Dim dateTimeStr As String = System.Text.Encoding.ASCII.GetString(propItemValue).Trim(chr(0))
Dim dt As Date = DateTime.ParseExact(dateTimeStr, "yyyy:MM:dd HH:mm:ss",System.Globalization.CultureInfo.InvariantCulture)
MessageBox.show(dt)
加好友 
发短信
Post By：2019/10/4 9:45:00 [显示全部帖子]
