寫入資料成 CSV 檔使用 VB.NET

Imports System.IO

Imports System.Text

Public Class Form1
Dim FilePath As String = "C:\csv.CSV"
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
Dim str As String = TextBox1.Text & "," & TextBox2.Text & "," & TextBox3.Text & "," _
                              & TextBox4.Text & "," & TextBox5.Text
sw.Write(str) '第一行
sw.WriteLine(str) '插入一整行
sw.Flush() '執行寫入動作
End Using
End Using
Catch ex As Exception
End Try

End Sub
End Class