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 TiffFormat
Dim tiffFormat As New TiffFormat(Common.MapSourceFilePath(filePath))

' get IFD
Dim directories As TiffIfd() = tiffFormat.ImageFileDirectories

If directories.Length > 0 Then
	' get tags of the first IFD
	Dim tags As TiffTag() = tiffFormat.GetTags(directories(0))

	' write tags to the console
	For Each tiffTag As TiffTag In tags
		Console.WriteLine("tag: {0}", tiffTag.DefinedTag)
		Select Case tiffTag.TagType
			Case TiffTagType.Ascii
				Dim asciiTag As TiffAsciiTag = TryCast(tiffTag, TiffAsciiTag)
				Console.WriteLine("Value: {0}", asciiTag.Value)
				Exit Select

			Case TiffTagType.[Short]
				Dim shortTag As TiffShortTag = TryCast(tiffTag, TiffShortTag)
				Console.WriteLine("Value: {0}", shortTag.Value)
				Exit Select
			Case Else

				Exit Select
		End Select
	Next
End If