Yes  - You do need two files in order to merge! - Did the commenting when I had the first problem and forgot to remove - Sorry should have caught that myselfWorks perfectly now - Thanks 

Hi Michel,

Hello,

new to the forum here.... I am trying to merge all files in a folder (all are pdf)... using vba in access... I keep getting error 401 files cannot be opened... any ideas?

thanks


Private Sub Command0_Click()
'fso = CreateObject("Scripting.FileSystemObject")

Dim x As Integer
Dim fs As Object
Dim fl As Object
Dim fld As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Dim count As Integer
Dim oPDF As New PDF_reDirect_v25002.Batch_RC_AXD
dim TempBool As Boolean
Dim strFileNameShort As String
Dim Files_to_Merge() As String


set fld = fs.GetFolder("\\Pomsserver1\pomsserver\dropbox\MSA\Registration_and_Charges")
x = 0
For Each fl In fld.Files
x = x + 1
Next fl
ReDim Files_to_Merge(x - 1)
x = 0
For Each fl In fld.Files

Files_to_Merge(x) = fl.Name
x = x + 1
Next fl

    With oPDF
       
        TempBool = .Utility_Merge_PDF_Files("\\Pomsserver1\pomsserver\dropbox\MSA\Registration_and_Charges\MergeTest.pdf", Files_to_Merge)
       
        If Not TempBool Then
            ' NOTES ON ERROR CODES for oPDF.ErrorLastDLL
            ' 401 - One of the Input File could not be opened
            ' 410 - One of the Input File could not be decrypted
            MsgBox "An Error Occured: " & .LastErrorDescription & vbCrLf & _
                     "Error Number =" & Str$(.LastErrorNumber) & vbCrLf & _
                     "DLL Error Number =" & Str$(.ErrorLastDLL), _
                    vbExclamation
        Else
            MsgBox "Merge Successful.", vbInformation
        End If
      End With
     Set oPDF = Nothing
End Sub

Michel, thanks so much for your quick reply. I did check those items and everything looked good.. I also tried using a local path instead of a network path incase there was any network security issues present... any other ideas?... does the code look ok?... would you have any samples that might have done a similar thing?... merging all files in a folder?... thanks again

Dan