Imports System.IO

Imports System.Text

 

'StreamWriter匯出文字檔

Dim sL_Path As String = "D:\AAA.csv"

Dim sw As StreamWriter = New StreamWriter(sL_Path, True, Encoding.Unicode)

If File.Exists(sL_Path) Then

  File.Delete(sL_Path)

End If

 

sw.WriteLine("開始")

sw.WriteLine("內容1")

sw.WriteLine("內容2")

sw.WriteLine("結束")

 

sw.Close()