VBS/検証用ダミーファイル作成 の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• VBS/検証用ダミーファイル作成 へ行く。
• VBS/検証用ダミーファイル作成 の差分を削除

#navi(../)

'###########################################################
 '###########################################################
 'ファイル名を連番で作成します。
 '
 '
 '
 '###########################################################
 'ファイルサイズの入力
 
 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 ループを終了します。

#navi(../)