当前位置 博文首页 > 文章内容
最大化 缩小

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

    作者： 栏目：未分类 时间：2020-06-29 9:55:18

    本站于2023年9月4日。收到“大连君*****咨询有限公司”通知
    说我们IIS7站长博客，有一篇博文用了他们的图片。
    要求我们给他们一张图片6000元。要不然法院告我们

    为避免不必要的麻烦，IIS7站长博客，全站内容图片下架、并积极应诉
    博文内容全部不再显示，请需要相关资讯的站长朋友到必应搜索。谢谢！

    另祝：版权碰瓷诈骗团伙，早日弃暗投明。

    相关新闻：借版权之名、行诈骗之实，周某因犯诈骗罪被判处有期徒刑十一年六个月

    叹！百花齐放的时代,渐行渐远!


    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

    （完）