C#/VB.NET 在PDF中添加文件包Portfolio

PDF文件包（Portfolio）允许用户将多种不同类型的文件如Word、Excel、PDF、PowerPoint和图片等集合到一个PDF文件中，用户可以打开、更改PDF文件包中的单个文件。添加文件包时，可支持创建文件包时并直接将文件添加到文件包；或者创建文件包的同时创建文件夹，并将文件添加到文件夹。

环境准备：程序中需要使用到PDF类库工具（Spire.PDF for .NET hotfix 6.5.15及以上版本）下载后，解压，将Bin文件夹下的dll文件添加引用到VS程序。如下效果：

 

 

1. 创建文件包时直接添加文件

C#

using Spire.Pdf;
 System;

namespace CreatePDFPortfolio_PDF
{
    class Program
    {
        static void Main(string[] args)
        {
            //创建数组
            String[] files = new String[] { "sample.pdf",sample.docxsample.xlsxsample.txtsample.pptx" };

            创建PdfDocument实例
            PdfDocument pdf = new PdfDocument();
            pdf.LoadFromFile(test.pdf);
            
            创建PDF文件包并添加文件
            for (int i = 0; i < files.Length; i++)
            {
                pdf.Collection.AddFile(files[i]);
             } 

            保存文档
            pdf.SavetoFile(PortfolioWithFiles.pdf,FileFormat.PDF);
            System.Diagnostics.Process.Start();
        }
    }
}

VB.NET

Imports Spire.Pdf


Namespace CreatePDFPortfolio_PDF
    Class Program
        Private Shared Sub Main(args As String())
            '创建数组
            Dim files As [String]() = New [String]() {}

            创建PdfDocument实例
            Dim pdf New PdfDocument()
            pdf.LoadFromFile()

            For i Integer = 0 To files.Length - 1

                pdf.Collection.AddFile(files(i))
            Next

            stem.Diagnostics.Process.Start()
        End Sub
    End Class
End Namespace

2. 创建文件包时创建文件夹，并将文件添加到文件夹

C#

 Spire.Pdf.Collections;
 System;


 CreatePDFPortfolio2
{
     };
            
            创建PdfDocument实例
             PdfDocument doc =  PdfDocument(); 
            
            创建PDF文件包，添加文件夹,并向文件夹添加文件
            )
              {
                PdfFolder folder = doc.Collection.Folders.CreateSubfolder(Folder" + i);
                folder.AddFile(files[i]);
              }
                
            保存文档
            doc.SavetoFile(PortfolioWithFolders2.pdf);
        }
    }
}

VB.NET

 Spire.Pdf
 Spire.Pdf.Collections

 CreatePDFPortfolio2
    Dim doc  PdfDocument()

            1
                Dim folder As PdfFolder = doc.Collection.Folders.CreateSubfolder( i)
                folder.AddFile(files(i))
            End Namespace

（完）