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
' get xmp metadata
Dim xmpWrapper As XmpPacketWrapper = MetadataUtility.ExtractXmpPackage(Common.MapSourceFilePath(filePath))

If xmpWrapper Is Nothing Then
    xmpWrapper = New XmpPacketWrapper()
End If

' add iptc4xmpcore if not exist
If Not xmpWrapper.ContainsPackage(Namespaces.Iptc4XmpCore) Then
    xmpWrapper.AddPackage(New IptcCorePackage())
End If

' get iptc4XmpCore package
Dim iptcCorePackage As IptcCorePackage = DirectCast(xmpWrapper.GetPackage(Namespaces.Iptc4XmpCore), IptcCorePackage)

Console.WriteLine("Country Code: {0}", iptcCorePackage.CountryCode)
Console.WriteLine("Sub Location: {0}", iptcCorePackage.Sublocation)
Console.WriteLine("Intellectual Genre: {0}", iptcCorePackage.IntellectualGenre)