将PDF在多个位置与pdftk合并

Question

我试图从批处理或VBS脚本文件中合并多个PDF的调用pdftk。问题是PDF文件都位于公共父目录中的子文件夹中。示例:父文件夹> subfolder1、subfolder2、subfolder3，其中脚本/BAT文件位于父文件夹中，每个子文件夹都包含一个PDF。

pdftk的调用如下: pdftk.exe *.pdf cat输出OutputFile.pdf

这将只合并当前目录中的PDF，而不是子文件夹中的PDF。是否有办法进行下列工作之一：

1. 使用VBS/BAT文件将子文件夹中的所有PDF复制到另一个目录，如果某些子文件夹为空，则不要出错。
2. 让pdftk查看子文件夹以选择要合并的PDF文件

任何帮助都将不胜感激。

Answer 1

试试这个：

Wscript.Echo "begin."
Dim pdffiles
pdffiles=""
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSuperFolder = objFSO.GetFolder(WScript.Arguments(0))
Call ShowSubfolders (objSuperFolder)

Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "pdftk.exe", pdffiles & " output combined.pdf", "", "runas", 1

Wscript.Echo "end."

WScript.Quit 0

Sub ShowSubFolders(fFolder)
    Set objFolder = objFSO.GetFolder(fFolder.Path)
    Set colFiles = objFolder.Files
    For Each objFile in colFiles
        If UCase(objFSO.GetExtensionName(objFile.name)) = "PDF" Then
            pdffiles=pdffiles & " " & objFile.Name
        End If
    Next

    For Each Subfolder in fFolder.SubFolders
        ShowSubFolders(Subfolder)
    Next
End Sub