ファイル分割

質問

Windows８のコマンドプロンプトでバッチファイル内で指定バイト数でファイル分割したいのですが標準的な方法を教えてください。なるべくフリーソフトなどは使いたくありません。対象ファイルはひとつだけですがサイズが１１７０Byteで、これを３９Byte毎にファイル分割したいです。

回答No.1

notnot

文字単位じゃなくてバイト単位でとなるとちょっと面倒ですね。いずれにせよ、VBScriptを使います。
下記の内容で、拡張子vbsでファイルを作って、
cscript そのファイル名
で実行します。

Dim sIn, sOut, n, data
Set sIn = CreateObject("ADODB.Stream")
Set sOut = CreateObject("ADODB.Stream")

sIn.Type = 1 'バイナリモード
sOut.Type = 1
sIn.Open
sIn.LoadFromFile("infile.dat")
n=0

Do Until sIn.EOS
data = sIn.Read(39)
n=n+1
sOut.Open
sOut.Write data
sOut.SaveToFile "outfile"&n&".dat", 2
sOut.Close
Loop
sIn.Close