【VBS】テキストファイル出力関係

VBSでのテキストファイル出力

Dim fso
Dim fs
Dim path
Dim fileName

set fso = CreateObject("Scripting.FileSystemObject")

'ファイルを生成する
path = "C:\test"
fileName = "test.txt"
set fs = fso.OpenTextFile(path + "\" + fileName,2,true)
'set fs = fso.OpenTextFile(".\" + fileName,2,true) 'カレントディレクトリ
'第一引数 ファイルパス＋ファイル名
'第二引数 1：ForReading　2：ForWriting　3：ForAppending 
'第三引数 ファイルがない場合に作成するかどうか。true/false

'書き込み関係
fs.WriteLine("hogehoge")    '一行追加
fs.Write("foo")             'ファイル末尾に追加
fs.Write(vbCrLf)
'vbBack : バックスペース
'vbCrLf : 改行コード
'vbTab  : タブ文字

'ファイルを閉じる
fs.Close