Cacher is the code snippet organizer for pro developers

' For complete examples and data files, please go to https://github.com/groupdocs-metadata/GroupDocs.Metadata-for-.NET
' initialize JpegFormat
Dim jpegFormat As New JpegFormat(Common.MapSourceFilePath(filePath))

' if file contains iptc metadata
If jpegFormat.HasIptc Then
    ' get iptc collection
    Dim iptcCollection As IptcCollection = jpegFormat.GetIptc()

    ' go through array and write property name and formatted value
    For Each iptcProperty As IptcProperty In iptcCollection
        Console.WriteLine(String.Format("{0}: {1}", iptcProperty.Name, iptcProperty.GetFormattedValue()))
    Next

    ' initialize IptcDataSetCollection to read well-known properties
    Dim dsCollection As New IptcDataSetCollection(iptcCollection)

    ' try to read Application Record dataset
    If dsCollection.ApplicationRecord IsNot Nothing Then
        ' get category
        Dim category As String = dsCollection.ApplicationRecord.Category

        ' get headline
        Dim headline As String = dsCollection.ApplicationRecord.Headline
    End If

    If dsCollection.EnvelopeRecord IsNot Nothing Then
        ' get model version
        Dim modelVersion As System.Nullable(Of Integer) = dsCollection.EnvelopeRecord.ModelVersion

        ' get dataSent property
        Dim dataSent As System.Nullable(Of DateTime) = dsCollection.EnvelopeRecord.DataSent
    End If