tetsunosukeのnotebook

tetsunosukeのメモです

VBScriptしょっちゅう忘れるアレ

やろうとするといっつも忘れるから最低限このくらいはメモ

ファイル出力

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