Код: @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 |