Visual Basic 6.0

Reassemble a Previously Split File

Demonstrates how to reassemble a previously split file. Visual Basic 6.0

Dim success As Long
success = 0

Dim fac As New CkFileAccess

' Any type of file may be reassembled.  It doesn't matter if it's
' a binary file or a text file.
Dim reassembledFilename As String
reassembledFilename = "hamlet2.xml"

Dim partPrefix As String
partPrefix = "hamlet"
Dim partExtension As String
partExtension = "spl"
Dim srcDirPath As String
srcDirPath = "."

' Reassembles the original file from hamlet1.spl, hamlet2.spl, ...
success = fac.ReassembleFile(srcDirPath,partPrefix,partExtension,reassembledFilename)

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