* Open the first file in the directory AcroExchPDDoc.Open( cPath + aPdfFiles[ iPdfFile, 1 ] ) should be AcroExchPDDoc.Open( cPath + aPdfFiles[ 1, 1 ] )and
* Save the entire document as the JOIN_FILENAME using SaveFull [0x0001 = &H1] AcroExchPDDoc.Save( 0x0001, strPath + JOIN_FILENAME ) should be AcroExchPDDoc.Save( 0x0001, cPath + JOIN_FILENAME )