ファイルへの書き込み

質問

いままでPrintメソッドを使って書き込みしていました。
ちょっと志向を変えてオブジェクト（？）をつかってプログラミングしています。

ファイルの書き込みでつまづいたので教えてください。
真ん中くらいに質問文があります

Dim objFileSystem As Object
Dim objFile As Object
Dim strFileName As String
Dim strBuff As String

' 読み込むファイル名
strFileName = "Readme.txt"
' FileSystemObjectオブジェクトへの参照
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
' ファイルを開く
Set objFile = objFileSystem.OpenTextFile(strFileName)
' ファイルの最後に達するまでループ

strBuff = strBuff + naiyo.Text

　　'ここで質問。この書き方だとファイルモードが不正とエラーが出ます。
　　'この部分どう書けばよいのでしょうか？
objFile.writeline (strBuff)

' ファイルを閉じる
objFile.Close
' オブジェクトを解放
Set objFileSystem = Nothing
Set objFile = Nothing

オブジェクト変数（というのでしょうか(^^ゞ）を使ったファイルの書き込み方教えてください。

回答No.1

HUTABA · ベストアンサー

ファイルをオープンする時に、ファイルモードを設定しなければいけません。
ご質問の場合、「書き込みモード」なので

Set objFile = objFileSystem.OpenTextFile(strFileName)
　↓
Set objFile = objFileSystem.OpenTextFile(strFileName,2,True)

ですね。

第2引数は
　1=読取専用
　2=書き込み
　3=追加書き込み
第3引数は、
　strFileNameが存在しなかった場合
　True=ファイルの作成を試みる
　False=ファイルを作成しない
です。

お礼

早速の回答ありがとうございます。
おかげで書き込みできました。