たくさんのファイルを作成する１

WSH


久々にWSHに挑戦しようと思い、複数のファイルを作成するスクリプトを作ってみた。



mkfile.vbs

Option Explicit

Dim objFileSys
Dim strScriptPath
Dim strCreateFile
Dim i

'ファイルシステムオブジェクトの作成
Set objFileSys = CreateObject("Scripting.FileSystemObject")

'プログラムが保存されているフォルダを取得
strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")

'１０個のファイルを作成
For i = 0 to 10
 strCreateFile = objFileSys.BuildPath(strScriptPath,"test" & i & ".txt")
 objFileSys.CreateTextFile strCreateFile
Next

'オブジェクト破棄
Set objFileSys = Nothing