replied on March 12, 2015
Here is code that shows how to get a list of all metadata from an image:
Private Function ImageMetaData(ByVal sImagePath As String) As List(Of String)
Dim lsReturn As New List(Of String)
Try
If Not String.IsNullOrEmpty(sImagePath) Then
Dim myImageInfo As New System.IO.FileInfo(sImagePath)
If myImageInfo.Exists Then
Dim lsImageExtentions As List(Of String) = New List(Of String) From {".tif", ".tiff", ".jpg", ".jpeg", ".png", ".exif"}
If lsImageExtentions.Contains(myImageInfo.Extension) Then
Dim image1 As Image = Image.FromFile(sImagePath, True)
For Each pi As System.Drawing.Imaging.PropertyItem In image1.PropertyItems
lsReturn.Add(pi.Id.ToString & " : " & New System.Text.ASCIIEncoding().GetString(pi.Value))
Next
Else
MessageBox.Show("Please provide a valid image file path.")
End If
Else
MessageBox.Show("Please provide a valid image file path.")
End If
Else
MessageBox.Show("Please provide a valid image file path.")
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Return lsReturn
End Function