テキストファイルを作成する

テキストファイルを作成するには、以下のようにします。

参照設定に「Microsoft Scripting Runtime」を追加します。

Private Sub Command1_Click()

    Dim f As New FileSystemObject
    Dim stream As TextStream
    
    'テキストファイルを作成する。
    Set stream = f.CreateTextFile("c:\test\a.txt", True)
    
    'テキストファイルに書く
    stream.Write "abcd"
    
    '1行書く
    stream.WriteLine "最後に改行されます"
    
    '閉じる
    stream.Close
    
    Set stream = Nothing
    Set f = Nothing

End Sub