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;
using System;

namespace CreatePDFPortfolio_PDF
{
    class Program
    {
        static void Main(string[] args)
        {
            //創建陣列
            String[] files = new String[] { "sample.pdf", "sample.docx", "sample.xlsx", "sample.txt", "sample.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("PortfolioWithFiles.pdf");
        }
    }
}

VB.NET

Imports Spire.Pdf


Namespace CreatePDFPortfolio_PDF
    Class Program
        Private Shared Sub Main(args As String())
            '創建陣列
            Dim files As [String]() = New [String]() {"sample.pdf", "sample.docx", "sample.xlsx", "sample.txt", "sample.pptx"}

            '創建PdfDocument實體
            Dim pdf As New PdfDocument()
            pdf.LoadFromFile("test.pdf")

            '創建PDF檔案包并添加檔案
            For i As Integer = 0 To files.Length - 1

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

            '保存檔案
            pdf.SaveToFile("PortfolioWithFiles.pdf", FileFormat.PDF)
            System.Diagnostics.Process.Start("PortfolioWithFiles.pdf")
        End Sub
    End Class
End Namespace

2. 創建檔案包時創建檔案夾，并將檔案添加到檔案夾

C#

using Spire.Pdf;
using Spire.Pdf.Collections;
using System;


namespace CreatePDFPortfolio2
{
    class Program
    {
        static void Main(string[] args)
        {
            //創建陣列
            String[] files = new String[] { "sample.pdf", "sample.docx", "sample.xlsx", "sample.txt", "sample.pptx" };
            
            //創建PdfDocument實體
             PdfDocument doc = new PdfDocument(); 
            
            //創建PDF檔案包，添加檔案夾,并向檔案夾添加檔案
            for (int i = 0; i < files.Length; i++)
              {
                PdfFolder folder = doc.Collection.Folders.CreateSubfolder("Folder" + i);
                folder.AddFile(files[i]);
              }
                
            //保存檔案
            doc.SaveToFile("PortfolioWithFolders2.pdf", FileFormat.PDF);
            System.Diagnostics.Process.Start("PortfolioWithFolders2.pdf");
        }
    }
}

VB.NET

Imports Spire.Pdf
Imports Spire.Pdf.Collections

Namespace CreatePDFPortfolio2
    Class Program
        Private Shared Sub Main(args As String())
            '創建陣列
            Dim files As [String]() = New [String]() {"sample.pdf", "sample.docx", "sample.xlsx", "sample.txt", "sample.pptx"}

            '創建PdfDocument實體
            Dim doc As New PdfDocument()

            '創建PDF檔案包，添加檔案夾,并向檔案夾添加檔案
            For i As Integer = 0 To files.Length - 1
                Dim folder As PdfFolder = doc.Collection.Folders.CreateSubfolder("Folder" + i)
                folder.AddFile(files(i))
            Next

            '保存檔案
            doc.SaveToFile("PortfolioWithFolders2.pdf", FileFormat.PDF)
            System.Diagnostics.Process.Start("PortfolioWithFolders2.pdf")
        End Sub
    End Class
End Namespace

（完）

標籤：C#

上一篇：邏輯式編程語言極簡實作（使用C#） - 1. 邏輯式編程語言介紹

下一篇：C# NamedPipeServerStream NamedPipeClientStream