テキストファイルを1行ずつ書き出す

[vb]
Dim myFSO, myFile
Set myFSO = CreateObject("Scripting.FileSystemObject")
Set myFile = myFSO.CreateTextFile("outdata.txt")
myFile.WriteLine("Cogito ergo sum")
myFile.Close
Set myFile = Nothing
Set myFSO = Nothing
[/vb]
VBScriptでテキストファイルを1行ずつ出力するにはTextStreamオブジェクトのWriteLineメソッドを使う。
ファイルはFileSystemObjectオブジェクトのCreateTextFileメソッドで作成し、書き終わったらCloseメソッドで閉じる。