(PureBasic) Split File into Chunks

Demonstrates how to split a file into chunks.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkFileAccess.pb"

Procedure ChilkatExample()

    fac.i = CkFileAccess::ckCreate()
    If fac.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Any type of file may be split.  It doesn't matter if it's
    ; a binary file or a text file.
    fileToSplit.s = "qa_data/hamlet.xml"

    partPrefix.s = "hamlet"
    partExtension.s = "part"
    maxChunkSize.i = 50000
    destDirPath.s = "qa_output"

    ; Splits hamlet.xml into hamlet1.part, hamlet2.part, ...
    ; Output files are written to the current working directory.
    ; Each chunk will be 50000 bytes except for the last which
    ; will be the remainder.
    success.i = CkFileAccess::ckSplitFile(fac,fileToSplit,partPrefix,partExtension,maxChunkSize,destDirPath)

    If success = 1
        Debug "Success."
    Else
        Debug CkFileAccess::ckLastErrorText(fac)
    EndIf



    CkFileAccess::ckDispose(fac)


    ProcedureReturn
EndProcedure