PowerBuilder

Split File into Chunks

Demonstrates how to split a file into chunks. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Fac
string ls_FileToSplit
string ls_PartPrefix
string ls_PartExtension
integer li_MaxChunkSize
string ls_DestDirPath

li_Success = 0

loo_Fac = create oleobject
li_rc = loo_Fac.ConnectToNewObject("Chilkat.FileAccess")
if li_rc < 0 then
    destroy loo_Fac
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

ls_PartPrefix = "hamlet"
ls_PartExtension = "part"
li_MaxChunkSize = 50000
ls_DestDirPath = "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.
li_Success = loo_Fac.SplitFile(ls_FileToSplit,ls_PartPrefix,ls_PartExtension,li_MaxChunkSize,ls_DestDirPath)

if li_Success = 1 then
    Write-Debug "Success."
else
    Write-Debug loo_Fac.LastErrorText
end if



destroy loo_Fac