やろうとするといっつも忘れるから最低限このくらいはメモ
ファイル出力
Dim fso Dim textFile Const FILENAME = "filename" Set fso = Wscript.CreateObject("Scripting.FileSystemObject") Set textFile = fso.CreateTextFile(FILENAME) textFile.WriteLine "<出力内容>" textFile.Close
入力の場合はCreateTextFileではなくOpenTextFile。
他コマンドの実行
Dim shell Dim crObj Const PROGRAM = "program" Set shell = CreateObject("Wscript.shell") Set crObj = shell.exec(PROGRAM) '呼び出しプロセスが終了するまで待つ do while crObj.Status = 0 Wscript.sleep 100 loop ' 出力内容のハンドリング Do Until crObj.StdOut.AtEndOfStream Wscript.echo crObj.StdOut.ReadLine Loop '終了コード Wscript.echo crObj.ExitCode