VBAでテキストファイルを作る その3(ファイル作成)

FSOを使ってテキストファイルを作成することが出来ます．以下にソースコードを示します．

【事例】
Sub fso_txt_create()

Dim fso As New Filesystemobject
Dim txt_create As textstream
Set txt_create = fso.opentextfile("c:\temp\view.htm", forwriting) 　'ファイル作成
head = "はなこ" '変数を使って入力する方法を試す
With txt_create
.WriteLine ("これはテストです。") 'テキストを書き込む
.WriteLine (head)
.WriteLine ("hoge")
.Close 'txtstreamオブジェクトを閉じる
End With 'Withステートメントを終了する

End Sub

【注意点】
ファイルを開く場合，.opentextfileメソッドを使うが既にテキストファイルが無いとエラーとなる．また，.opentextfileオブジェクトの2カラム目(今の場合，forwriting)でforreadingとすると読み取り専用で、forwritingで書き込み用で上書き、forAppendingで書き込み用で上書きせずに追記します。

【参考】
WriteLineをWriteにすると改行文字は書き込まれない書き込みをします。