作成 2010.01.07
更新 2010.01.07
更新 2010.01.07
VBScript で0で埋めたファイルを作る
サンプルコードではFドライブに1GBのバイナリファイルを11個作ります。
Option Explicit
Const FillFileName = "F:\test"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fso, f, ts, n, m
Set fso = CreateObject("Scripting.FileSystemObject")
For n = 0 To 10
fso.CreateTextFile FillFileName & n & ".bin" ' Create a file.
Set f = fso.GetFile(FillFileName & n & ".bin")
Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
WScript.Echo FillFileName & n & ".bin"
For m = 0 To 1024 * 1024
ts.Write String(1024, 0)
Next
ts.Close
Next
タグ: VBScript