(Xojo Plugin) Split File into Chunks
Demonstrates how to split a file into chunks.
Dim fac As New Chilkat.FileAccess
// Any type of file may be split. It doesn't matter if it's
// a binary file or a text file.
Dim fileToSplit As String
fileToSplit = "qa_data/hamlet.xml"
Dim partPrefix As String
partPrefix = "hamlet"
Dim partExtension As String
partExtension = "part"
Dim maxChunkSize As Int32
maxChunkSize = 50000
Dim destDirPath As String
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.
Dim success As Boolean
success = fac.SplitFile(fileToSplit,partPrefix,partExtension,maxChunkSize,destDirPath)
If (success = True) Then
System.DebugLog("Success.")
Else
System.DebugLog(fac.LastErrorText)
End If
|
