PDF Utilities; added various functions to the finPOWER Connect Business Layer to combine PDF Files

  Dim FileContent() As Byte
  Dim FileNames As List(Of String)

  ' Assume Success
  Main = True

  ' Create a list of PDF Filenames
  FileNames = New List(Of String)
  FileNames.Add("file1.pdf")
  FileNames.Add("file2.pdf")
  FileNames.Add("file3.pdf")

  ' Combine into a Byte Array
  If Main Then
    If finBL.PdfUtilities.CombinePDFFileNamesToPDFByteArray(FileNames, FileContent) Then
      ' ...
    Else
      Main = False
    End If
  End If  

  ' Combine and save to file
  If Main Then
    Main = finBL.PdfUtilities.CombinePDFFileNamesToPDFFile(FileNames, "combinedfile.pdf")
  End If

  Dim FileContent() As Byte
  Dim PDFFileContents As List(Of Byte())

  ' Assume Success
  Main = True

  ' Create a list of PDF Byte Arrays
  PDFFileContents = New List(Of Byte())
  If Main Then
    If finBL.Runtime.FileUtilities.ReadBinaryFile("file1.pdf", FileContent) Then
      PDFFileContents.Add(FileContent)
    Else
      Main = False
    End If
  End If
  If Main Then
    If finBL.Runtime.FileUtilities.ReadBinaryFile("file2.pdf", FileContent) Then
      PDFFileContents.Add(FileContent)
    Else
      Main = False
    End If
  End If  

  ' Combine into a Byte Array
  If Main Then
    If finBL.PdfUtilities.CombinePDFByteArraysToPDFByteArray(PDFFileContents, FileContent) Then
      ' ...
    Else
      Main = False
    End If
  End If  

  ' Combine and save to file
  If Main Then
    Main = finBL.PdfUtilities.CombinePDFByteArraysToPDFFile(PDFFileContents, "combinedfile.pdf")
  End If

  Dim FileContent() As Byte
  Dim WordDocument As ISWordDocument
  Dim WordDocuments As List(Of ISWordDocument)

  ' Assume Success
  Main = True

  ' Create a list of ISWordDocuments
  WordDocuments = New List(Of ISWordDocument)
  If Main Then
    WordDocument = finBL.CreateWordDocument
    If WordDocument.Open("file1.docx") Then
      WordDocuments.Add(WordDocument)
    Else
      Main = False
    End If
  End If
  If Main Then
    WordDocument = finBL.CreateWordDocument
    If WordDocument.Open("file2.docx") Then
      WordDocuments.Add(WordDocument)
    Else
      Main = False
    End If
  End If

  ' Combine into a Byte Array
  If Main Then
    If finBL.PdfUtilities.CombineWordDocumentsToPDFByteArray(WordDocuments, FileContent) Then
      ' ...
    Else
      Main = False
    End If
  End If  

  ' Combine and save to file
  If Main Then
    Main = finBL.PdfUtilities.CombineWordDocumentsToPDFFile(WordDocuments, "combinedfile.pdf")
  End If