Visual Basic 6.0

Split File into Chunks

Demonstrates how to split a file into chunks. Visual Basic 6.0

Dim success As Long
success = 0

Dim fac As New CkFileAccess

' 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 Long
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.
success = fac.SplitFile(fileToSplit,partPrefix,partExtension,maxChunkSize,destDirPath)

If (success = 1) Then
    Debug.Print "Success."
Else
    Debug.Print fac.LastErrorText
End If