Public Class Tester
Public Shared Sub Main
Dim headings() As String = {"Alpha", "Beta", "Gamma"}
Dim workText As String = String.Join(",", headings)
workText &= "1.1, 2.3, 4.5" & vbNewLine
Dim filePath As String = My.Computer.FileSystem.CurrentDirectory & "\Test.csv"
My.Computer.FileSystem.WriteAllText(filePath, workText, False)
End Sub
End Class
|