2012/11/03

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

上司:ファイル名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("作成終了")


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