none
Importar archivos PDF desde VB.Net

    Debate general

  • Hola amigos de la comunidad, tengo este codigo que encontre navegando por la internet, el cual me permite unir archivos PDF, el detalle es que solo me permite unir 2 archivos predefinidos en el codigo:

            Dim sFile1 As String = “D:\Datos\Escritorio\Documento1.pdf”

            Dim sFile2 As String = “D:\Datos\Escritorio\Documento2.pdf”

    La consulta es, como puedo hacer para que mediante un OpenFileDialog cargue cualquier archivos con cualquier nombre y cualquier ubicación y los pueda unir, esperro puedan ayudarme, muchas gracias.

    Imports System.IO
    Imports iTextSharp
    Imports iTextSharp.text
    Imports iTextSharp.text.pdf
    Public Class Form1
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            ' Creamos una lista de archivos para concatenar

            Dim Lista As New List(Of String)

            ' Identificamos los documentos que queremos unir

            Dim sFile1 As String = “D:\Datos\Escritorio\Documento1.pdf”

            Dim sFile2 As String = “D:\Datos\Escritorio\Documento2.pdf”

            ' Los añadimos a la lista

            Lista.Add(sFile1)

            Lista.Add(sFile2)

            ' Nombre del documento resultante

            Dim sFileJoin As String = “D:\Datos\Escritorio\DocumentoJoin.pdf”

            Dim Doc As New Document()

            Try

                Dim fs As New FileStream(sFileJoin, FileMode.Create, FileAccess.Write, FileShare.None)

                Dim copy As New PdfCopy(Doc, fs)

                Doc.Open()

                Dim Rd As PdfReader

                Dim n As Integer 'Número de páginas de cada pdf

                For Each file In Lista

                    Rd = New PdfReader(file)

                    n = Rd.NumberOfPages

                    Dim page As Integer = 0

                    Do While page < n

                        page += 1

                        copy.AddPage(copy.GetImportedPage(Rd, page))

                    Loop

                    copy.FreeReader(Rd)

                    Rd.Close()

                Next

            Catch ex As Exception

                MsgBox(ex.Message, vbExclamation, “Error uniendo los pdf”)

            Finally

                ' Cerramos el documento

                Doc.Close()

            End Try

        End Sub
    End Class


    Juan Fernando

    lunes, 28 de noviembre de 2016 5:05