Tcl

Split File into Chunks

Demonstrates how to split a file into chunks. Tcl

load ./chilkat.dll

set success 0

set fac [new_CkFileAccess]

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

set partPrefix "hamlet"
set partExtension "part"
set maxChunkSize 50000
set 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.
set success [CkFileAccess_SplitFile $fac $fileToSplit $partPrefix $partExtension $maxChunkSize $destDirPath]

if {$success == 1} then {
    puts "Success."
} else {
    puts [CkFileAccess_lastErrorText $fac]
}


delete_CkFileAccess $fac