Split File into Chunks

Demonstrates how to split a file into chunks.

Download Chilkat FileAccess ActiveX (freeware)

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set fac = Server.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 = "hamlet.xml"

partPrefix = "hamlet"
partExtension = "spl"
maxChunkSize = 50000
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 = 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>"
Else
    Response.Write "<pre>" & Server.HTMLEncode( fac.LastErrorText) & "</pre>"
End If

%>
</body>
</html>