たくさんのファイルを作成するHTA版を作ってみた。
htaはvbsにフォームを付加したもの。フォーム部分はhtmlで記述する。
mkfile.hta
<html><head>
<title>ＨＴＡを作ってみる</title></head>
<body>
<form name="form1">
<p>出力先を入力してください。
<input type="text" name="outputpath" value="D:\" /></p>
<p>テキスト名を入力してください。
<input type="text" name="textname" value="text" /></p>
<p><input type="button" value="作成実行"
onClick="Sub_CreateFile()" /></p>
</form>
<script language="VBScript">
Option Explicit
Sub Sub_CreateFile()
Dim objFileSys
Dim strScriptPath
Dim strCreateFile
Dim i
'ファイルシステムオブジェクトの作成
Set objFileSys = CreateObject("Scripting.FileSystemObject")
'出力先フォルダを取得
strScriptPath = document.form1.outputpath.value
'１０個のファイルを作成
For i = 0 to 10
strCreateFile = objFileSys.BuildPath(strScriptPath, document.form1.textname.value & i & ".txt")
objFileSys.CreateTextFile strCreateFile
Next
'オブジェクト破棄
Set objFileSys = Nothing
end sub
</script>
</body></html>簡単なアプリならもうVisual Stadioはいらないかも。。。
参考にしたサイト
