VBScript

Reassemble a Previously Split File

Demonstrates how to reassemble a previously split file. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set fac = CreateObject("Chilkat.FileAccess")

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

partPrefix = "hamlet"
partExtension = "spl"
srcDirPath = "."

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

If (success = 1) Then
    outFile.WriteLine("Success.")
Else
    outFile.WriteLine(fac.LastErrorText)
End If


outFile.Close