'###########################################################
'ファイル名を連番で作成します。
'
'
'
'###########################################################
'ファイルサイズの入力

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 ループを終了します。


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2018-01-03 (水) 21:45:50 (704d)