テキストファイルを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メソッドで閉じる。

 

みっちょ

SALON Doluce 代表。ハッカーでカウンセラー、占い師でカメラマン、その他あらゆる顔を持つ変な人。キッズプログラミング講師、パソコン修理、カウンセリングなど喜んで承ります。お気軽にお声掛けください!