Visual FoxPro

Reassemble a Previously Split File

Demonstrates how to reassemble a previously split file. Visual FoxPro

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

lnSuccess = 0

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

RELEASE loFac