' 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)