#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(../)

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS