Imports Bytescout.PDFExtractor
Imports System.Diagnostics

Class Program

	Friend Shared Sub Main(args As String())

        Dim SourceFolder As String = "PDFDocs"
        Dim DestinationDocument As String = "result.pdf"
        Dim IncludeSubFolder As Boolean = True

        Using merger As New DocumentMerger("demo", "demo")

            merger.MergeFolder(SourceFolder, DestinationDocument, IncludeSubFolder)

        End Using

        Dim processStartInfo As New ProcessStartInfo(DestinationDocument)
        processStartInfo.UseShellExecute = True
        Process.Start(processStartInfo)

    End Sub
    
End Class