VBScript

Split File into Chunks

Demonstrates how to split a file into chunks. 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 split.  It doesn't matter if it's
' a binary file or a text file.
fileToSplit = "qa_data/hamlet.xml"

partPrefix = "hamlet"
partExtension = "part"
maxChunkSize = 50000
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
    outFile.WriteLine("Success.")
Else
    outFile.WriteLine(fac.LastErrorText)
End If


outFile.Close