VB2008 txtファイル保存

質問

こんにちは、Vb2008を勉強しています。

デスクトップに保存している、TXTファイルに、
フォームで入力したデータを追加保存したいと思い、ネットで調べたり…で
入力しましたが、txtファイルを開いてみると文字化けしてしまします。

Dim writer As System.IO.FileStream = _
System.IO.File.OpenWrite("C:\Users\Desktop\顧客管理.txt")

'SystemWriterオブジェクトを作成し、テキストデータが書き込めるようにする
Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter(writer)

'ファイルの末尾に移動する
sw.BaseStream.Seek(0, System.IO.SeekOrigin.End)

'データを書き込む
sw.WriteLine(TextBox1.Text & "," & TextBox2.Text & "," & TextBox3.Text)
'ファイルを更新する
sw.Flush()

'ファイルを閉じる
sw.Close()
writer.Close()

上記の方法で文字化けだったので、またまた、調べて入力しましたが
今度は、改行されず…単純な、データの追加のようになってしまっています。

私は、新しい行に追加できるようにしたいです。
下のコードは文字コードの指定をしたので、保存はできますが、
改行されません。

Dim FileName As String = "C:\Users\Desktop\確認.txt"
Dim Writer As IO.StreamWriter
Dim Encode As System.Text.Encoding
'文字コードにShiftJISを指定。
Encode = System.Text.Encoding.GetEncoding("Shift-JIS")

'既に存在するテキストに追加する場合は第２引数をTrueにする。
Writer = New IO.StreamWriter(FileName, True, Encode)
Writer.Write(TextBox1.Text & "," & TextBox2.Text)
Writer.Close()

どなたか、教えていただけませんでしょうか？

回答No.1

Hayashi_Trek · ベストアンサー

StreamWriterのWriteLineメソッドを調べる。

参考URL：

http://dobon.net/vb/dotnet/#file