Split File into Chunks

Demonstrates how to split a file into chunks.

Download: Chilkat .NET Assemblies

Dim fac As New Chilkat.FileAccess()

Dim success As Boolean

'  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 = "hamlet.xml"

Dim partPrefix As String
partPrefix = "hamlet"
Dim partExtension As String
partExtension = "spl"
Dim maxChunkSize As Long
maxChunkSize = 50000
Dim destDirPath As String
destDirPath = "."

'  Splits hamlet.xml into hamlet1.spl, hamlet2.spl, ...
'  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 = true) Then
    TextBox1.Text = TextBox1.Text & "Success." & vbCrLf
Else
    TextBox1.Text = TextBox1.Text & fac.LastErrorText & vbCrLf
End If