ファイルの保存

Question

Using writer As New StreamWriter("C:\Users\nsc\Desktop\STEP4出力先\costomerichiran.csv",
False, Encoding.Default)

		Dim save As New SaveFileDialog

		''カラムのCSV出力
		Dim strList1 As New List(Of String)
		For i = 0 To DataGridView1.ColumnCount - 1
			strList1.Add(DataGridView1.Columns(i).HeaderText.ToString)
		Next
		Dim strary1 As String() = strList1.ToArray
		Dim strCsvData1 As String = String.Join(",", strary1)
		writer.WriteLine(strCsvData1)
		''RowのCSV出力
		For i = 0 To DataGridView1.Rows.Count - 1
			Dim strList As New List(Of String)
			For j = 0 To DataGridView1.ColumnCount - 1
				strList.Add(DataGridView1(j, i).Value.ToString())
			Next
			Dim strary As String() = strList.ToArray
			Dim strCsvData As String = String.Join(",", strary)
			writer.WriteLine(strCsvData)

		Next
	End Using

上記のコードでcsvに保存はできているのですがユーザーの任意の場所にほぞんできるようにしたいんのですがどうしたらよろしいでしょうか？

Answer 1

http://jeanne.wankuma.com/tips/vb.net/dialog/savefile.html
ココ参照。
????ボタンが押されたかどうかをはんていして、保存先パスが取れるので、そのパスでcsvを作成すればいいかと。本当に入力されたファイル名が拡張子 csv であるかのチェックはひつようですが、チェックng ととき、どうすんだ、ってことなら、無条件に、入力ファイル名に末尾に .csv 付けちゃえば csv ファイルにはなります。

Comments

[sobue]

Dim save As New SaveFileDialog
save.Filter = "テキスト ファイル|*.csv|すべてのファイル|*.*"
If save.ShowDialog = Windows.Forms.DialogResult.OK Then
Using writer As New StreamWriter(save.FileName,
False, Encoding.Default)
''カラムのCSV出力
Dim strList1 As New List(Of String)
For i = 0 To DataGridView1.ColumnCount - 1
strList1.Add(DataGridView1.Columns(i).HeaderText.ToString)
Next
Dim strary1 As String() = strList1.ToArray
Dim strCsvData1 As String = String.Join(",", strary1)
writer.WriteLine(strCsvData1)
''RowのCSV出力
For i = 0 To DataGridView1.Rows.Count - 1
Dim strList As New List(Of String)
For j = 0 To DataGridView1.ColumnCount - 1
strList.Add(DataGridView1(j, i).Value.ToString())
Next
Dim strary As String() = strList.ToArray
Dim strCsvData As String = String.Join(",", strary)
writer.WriteLine(strCsvData)

Next
End Using
MessageBox.Show(messageTable.Item("MS024"), messageTable.Item("MS025"), MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
で、できました