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