Код:
@echo off
@echo Option Explicit > split.vbs
@echo dim FileSystem, SourceFile, SourceStream, DestinationFileName, DestinationFile, DestinationStream, CurrentChunk >> split.vbs
@echo set FileSystem = CreateObject("Scripting.FileSystemObject") >> split.vbs
@echo set SourceFile = FileSystem.GetFile(WScript.Arguments(0)) >> split.vbs
@echo set SourceStream = SourceFile.OpenAsTextStream (1, 0) >> split.vbs
@echo CurrentChunk = 1 >> split.vbs
@echo do until SourceStream.AtEndOfStream >> split.vbs
@echo DestinationFileName = FileSystem.GetFileName(WScript.Arguments(0)) ^& "." ^& CurrentChunk >> split.vbs
@echo call FileSystem.CreateTextFile (DestinationFileName, true, false ) >> split.vbs
@echo set DestinationFile = FileSystem.GetFile(DestinationFileName) >> split.vbs
@echo set DestinationStream = DestinationFile.OpenAsTextStream ( 2, 0 ) >> split.vbs
@echo DestinationStream.Write ( SourceStream.Read ( WScript.Arguments(1) ) ) >> split.vbs
@echo DestinationStream.Close >> split.vbs
@echo CurrentChunk = CurrentChunk + 1 >> split.vbs
@echo loop >> split.vbs
@echo SourceStream.Close >> split.vbs
call wscript split.vbs %1 %2
erase split.vbs
@echo on
|
Первый параметр - файл, второй - размер блока в байтах.
split.bat myFile.zip 100000 |
, большая вероятность что файлы *.doc) 
