Public Sub MergePDFs(lstSourceFiles As List, CombinedFile As String) As Boolean
Dim ret As Boolean
Try
Dim joMemUsage As JavaObject
Dim joIOUtils As JavaObject
joIOUtils.InitializeStatic("org.apache.pdfbox.io.IOUtils")
Dim joRASC As JavaObject
joRASC.InitializeStatic("org.apache.pdfbox.io.RandomAccessStreamCache")
Dim jo As JavaObject
jo.InitializeNewInstance("org.apache.pdfbox.multipdf.PDFMergerUtility", Null)
For Each s As String In lstSourceFiles
jo.RunMethod("addSource", Array(s))
Next
jo.RunMethod("setDestinationFileName", Array(CombinedFile))
jo.RunMethod("mergeDocuments", Array(joIOUtils.RunMethod("createMemoryOnlyStreamCache", Null)))
ret = True
Catch
Log(LastException)
ret = False
End Try
Return ret
End Sub