TextStreamオブジェクト - WriteLineメソッド

---

【書式】

TextStream.WriteLine([string])

テキストファイルに文字列と改行を書き込みます。

引数stringは省略可能です。書き込む文字列を指定します。省略すると改行だけが書き込まれます。

下のサンプルでは、「田中」と「亨」はそれぞれ1行ごとに書き込まれます。また「亨」の後ろにも改行が書き込まれます。

Sub test84()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''「田中」と「亨」を1行ごとに書き込みます
    With FSO.GetFile("C:\Work\Sample.txt").OpenAsTextStream(8)
        .WriteLine "田中"
        .WriteLine "亨"
        .Close
    End With
    Set FSO = Nothing
End Sub