![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
'###########################################################
'ファイル名を連番で作成します。
'
'
'
'###########################################################
'ファイルサイズの入力
intBytes = InputBox("作成するファイルのサイズを指定してください。", "SEです。")
intBytes = intBytes / 2
Dim fileString 'ファイル名
Dim Counter 'カウンター
Counter = 0 ' 変数を初期化します。
While Counter < 20 ' カウンタの数を調べます。
fileString = String(10 - Len(Counter), "0″) & Counter
' Wscript.echo fileString 'テスト用（不要な場合コメントアウト）
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile _
(fileString, 2, True)
For i = 1 To intBytes
Random = Int((10 - 0 + 1) * Rnd + 0)
objFile.Write Random
Next
objFile.Close
Counter = Counter + 1 ' カウンタの数を増やします。
Wend ' カウンタが 20 以上になると While ループを終了します。
