ダミーファイルを、いぱーい作りたい

上司：ファイル名1000、1001、1002．．．9999で中身なんでもいいんでファイル作って。
鈴風：Σ(°□°)
上司：んじゃ、よろ!!　サッ＝(￣ー￣)ノ

ってなわけでVBscriptで
こんな感じのを作ってみました。

Dim fsObject
Dim fileText
Dim Count
Dim Filename

Count = 1000

Do Until Count > 9999
Set fsObject = CreateObject("Scripting.FileSystemObject")
Set fileText = fsObject.CreateTextFile("C:\" & Count)
fileText.WriteLine("C:\" & Count)
fileText.Close()
Set fileText = Nothing
Set fsObject = Nothing

Count = Count + 1
Loop

msgbox("作成終了")


それにしもてこの大量のファイル
どんなテストに使うんだ？？？

リモートロマンスが頼みの綱

Σ(￣□￣)ガーン
当日券の販売はないのかぁ…

リモートロマンスが頼みの綱だにぃ～、きゃうーん。

REMOTE ROMANCE in ジョジョ展
http://rr.araki-jojo.com/

弘法も筆の誤り

焦げ目がつくぐらいが美味しいのです。（たぶん
(￣▽￣)ノ

ちなみに件の動画は
日テレオンデマンドで無料鑑賞ができます。

はっ?!　Σ(￣□￣)
これが噂に名高い炎上マーケティングかっ!!(違