Sub PDF_Merge()
Dim strPfad As String
Dim strPfadZ As String
Dim strName As String
Dim strGS As String
Dim strPDF As String
Dim strPDFZ As String
Dim strDatname As String
Dim strCommand As String
Dim lngTaskID As Long
Dim lngptrProcID As LongPtr
strGS = "C:\Program Files (x86)\gs\gs9.14\bin\gswin32c.exe"
strPfad = "C:\Desktop\Zeichnungen\"
strDatname = Dir(strPfad & "*.pdf")
Do While Len(strDatname)
If InStr(strDatname, " ") Then
strPDF = strPDF & " """ & strPfad & strDatname & """"
Else
strPDF = strPDF & " " & strPfad & strDatname
End If
strDatname = Dir
strPfadZ = "C:\Desktop\Test\"
Loop
strCommand = strGS & " -dNOPAUSE -sDEVICE=pdfwrite -sOutputFile=" & strPfadZ & "3_Zeichnungen.pdf -dBATCH" & strPDF
lngTaskID = Shell(strCommand, 0)
lngptrProcID = OpenProcess(SYNCHRONIZE + PROCESS_QUERY_INFORMATION, 0&, lngTaskID)
Call WaitForSingleObject(lngptrProcID, INFINITE)
Call CloseHandle(lngptrProcID)
MsgBox "Fertig"
End Sub