PDF XChange Forum

Code: Select all

    Public Function JoinPDFBookmark(sourceFiles As List(Of String), sTargetFile As String) As Boolean
10:     Dim p As New Process
20:     Dim sSource As String = ""
        'Dim sTargetPath As String = System.IO.Path.GetDirectoryName(sourceFiles(0))
        'https://help.tracker-software.com/pdfxt9/index.html?command-line-options_t.html
        'Dateien werden in einer Textdatei gespeichert und diese wird dann verarbeitet
        Dim tmpFile As String = System.IO.Path.Combine(TmpPathTarget, "Dateiliste.pdtfl")
        If System.IO.File.Exists(tmpFile) Then File.Delete(tmpFile)

        Dim FileList As StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(tmpFile, True)


200:    For Each s As String In sourceFiles
210:        FileList.WriteLine(s)
220:    Next
230:    FileList.Close()

        If File.Exists(sTargetFile) Then System.IO.File.Delete(sTargetFile)

240:    Try
250:        p.StartInfo.FileName = "C:\Program Files\Tracker Software\PDF Tools\PDFXTools.exe"
260:        p.StartInfo.Arguments = "/RunTool {B404A7F2-BA30-46B9-865E493B71EC558D}"   'JoinPDFBookmark
270:        p.Start()
280:        p.WaitForExit()
290:        p.Close()
300:        Dim _Source() As String = System.IO.Directory.GetFiles(TmpPathTarget)

            For i = 0 To _Source.Count - 1
310:            If System.IO.Path.GetExtension(_Source(i)) = ".pdf" Then
                    System.IO.File.Move(_Source(i), sTargetFile)
                End If
            Next

320:        Return True
330:    Catch
340:        Return False
350:    End Try

    End Function