Merge not working

[nsalatka]

I have this simple app and the merge isn't working. Files are attached.

Code:

Dim sFiles As String = ""
Dim i As Integer = 0
Dim files As [String]() = New [String]() {"C:\Temp\MCP\2016002573SNS.pdf", "C:\Temp\MCP\2016006270SNS.pdf", "C:\Temp\MCP\2016007561SNS.pdf"}

Dim docs As PdfDocument() = New PdfDocument(files.Length - 1) {}

For i = 0 To files.Length - 1
docs(i) = New PdfDocument(files(i))
Next
i = 0

While i < docs(1).Pages.Count
docs(0).InsertPage(docs(1), 0)
i = i + 1
End While

i = 0

While i < docs(2).Pages.Count
docs(0).InsertPage(docs(2), 0)
i = i + 1
End While

docs(0).SaveToFile("C:\temp\MCP\Test.pdf", FileFormat.PDF)

For Each doc As PdfDocument In docs
doc.Close()
Next

[Betsy.jiang]

Dear nsalatka,

Thanks for your inquiry.
I have noticed your issue and posted it to our Dev team. We will inform you as long as there is any progress.
Sorry for inconvenience caused.

Sincerely,
Betsy
E-iceblue support team

[Betsy.jiang]

Dear nsalatka,

Thanks for your waiting.
After investigation,I am afraid that the files cannot been merged as xml form cannot been merged. You can check it in Adobe acrobat.
Sorry for inconvenience caused.

Sincerely,
Betsy
E-iceblue support team