Maintain all Layers when saving TIFF images

[BenVS]

I am trying to save a TIFF which has multiple layers. When the image is opened in Photoshop, each layer can been seen under the Layers heading. I can see each layer in a MagickImageCollection but if I try to write/save the image to a new location, the new image does not show each individual layer in Photoshop and instead shows a single composite 'Background' layer.

Is there a way to maintain multiple layers in a saved TIFF image?

dim i as ImageMagick.MagickImage = new ImageMagick.MagickImage(filelocation)
Dim layers As New List(Of ImageMagick.IMagickImage(Of UShort))()
Using oriImages As New ImageMagick.MagickImageCollection(filelocation)
    For Each item As ImageMagick.IMagickImage(Of UShort) In oriImages
        layers.Add(item.Clone())
    Next
End Using

Dim layerCollection As New ImageMagick.MagickImageCollection()
For Each layer As ImageMagick.IMagickImage(Of UShort) In layers
    Dim clonedLayer As ImageMagick.MagickImage = layer.Clone()
    clonedLayer.Label = layer.Label
    layerCollection.Add(clonedLayer)
Next

 ' Convert the collection to a byte array in TIFF format
Dim imageByteArray As Byte() = layerCollection.ToByteArray(ImageMagick.MagickFormat.Tiff)

' Specify the output file location
Dim outputFileLocation As String = tempfilelocation & "finalOutput.tiff"

System.IO.File.WriteAllBytes(outputFileLocation, imageByteArray)

[dlemstra]

I suspect that your input image contains photoshop layers and they will not be written in the image. ImageMagick also tries it best to read the layers but not all information can be read.

What happens when you set WriteLayers to true in the TiffWriteDefines?

[BenVS]

Thanks, I tried setting WriteLayers on tiffWriteDefines and it still creates a single composite layer. Only difference from before is that now it labels the layer L1 instead of Background when viewing the file in photoshop. So it looks like perhaps there's no way to preserve the individual layers unless there are any other properties for tiffWriteDefines that could have an effect?

dim i as ImageMagick.MagickImage = new ImageMagick.MagickImage("\\shared\original.tif")
            
i.Write("\\shared\new.tif")

Dim tiffWriteDefines As ImageMagick.IWriteDefines = New ImageMagick.Formats.TiffWriteDefines With {
        .WriteLayers = True
    }

i.Write("\\shared\new2.tif", tiffWriteDefines)

[dlemstra]

These are the only options that are available. It is very likely that Photoshop is doing something extra that ImageMagick is not doing.