Reassemble a Previously Split File

Demonstrates how to reassemble a previously split file.

Download Chilkat FileAccess ActiveX (freeware)

LOCAL loFac
LOCAL lnSuccess
LOCAL lcReassembledFilename
LOCAL lcPartPrefix
LOCAL lcPartExtension
LOCAL lcSrcDirPath

loFac = CreateObject('Chilkat.FileAccess')

*  Any type of file may be reassembled.  It doesn't matter if it's
*  a binary file or a text file.

lcReassembledFilename = "hamlet2.xml"

lcPartPrefix = "hamlet"

lcPartExtension = "spl"

lcSrcDirPath = "."

*  Reassembles the original file from hamlet1.spl, hamlet2.spl, ...
lnSuccess = loFac.ReassembleFile(lcSrcDirPath,lcPartPrefix,lcPartExtension,lcReassembledFilename)

IF (lnSuccess = 1) THEN
    ? "Success."
ELSE
    ? loFac.LastErrorText
ENDIF