Split File into Chunks

Demonstrates how to split a file into chunks.

Download Chilkat FileAccess ActiveX (freeware)

LOCAL loFac
LOCAL lnSuccess
LOCAL lcFileToSplit
LOCAL lcPartPrefix
LOCAL lcPartExtension
LOCAL lnMaxChunkSize
LOCAL lcDestDirPath

loFac = CreateObject('Chilkat.FileAccess')

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

lcFileToSplit = "hamlet.xml"

lcPartPrefix = "hamlet"

lcPartExtension = "spl"

lnMaxChunkSize = 50000

lcDestDirPath = "."

*  Splits hamlet.xml into hamlet1.spl, hamlet2.spl, ...
*  Output files are written to the current working directory.
*  Each chunk will be 50000 bytes except for the last which
*  will be the remainder.
lnSuccess = loFac.SplitFile(lcFileToSplit,lcPartPrefix,lcPartExtension,lnMaxChunkSize,lcDestDirPath)

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