以下のサイトを参考にプログラムを作成しました。
ストリームを使用します。
Dim savedlg As SaveFileDialog = New SaveFileDialog()
savedlg.Filter = "テキストファイル (*.txt)|*.txt"
savedlg.Filter = "テキストファイル (*.txt)|*.txt"
If savedlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
'ファイルを上書きし、Shift JISで書き込む
Dim sw As New System.IO.StreamWriter(savedlg.FileName, False, System.Text.Encoding.GetEncoding("shift_jis"))
Dim sw As New System.IO.StreamWriter(savedlg.FileName, False, System.Text.Encoding.GetEncoding("shift_jis"))
sw.WriteLine("Test")
sw.Close()
sw.Close()
End If
--
【動作】
「名前を付けて保存」ダイアログで指定したファイルに "Test"と書込みます。
--
【参考】
DOBON 様
