Private Sub SaveAsFile()

'They want to do a SaveAs, so find out what they want to name the file

Dim saveFileDialog As SaveFileDialog = New SaveFileDialog()

saveFileDialog.Title = "Save File"

saveFileDialog.Filter = "Files (*.csv)|*.csv|All Files (*.*)|*.*"

saveFileDialog.DefaultExt = "csv"

saveFileDialog.AddExtension = True

If saveFileDialog.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then

filename = saveFileDialog.FileName

End If

Try
Dim csvFileContents As New System.Text.StringBuilder
Dim currentLine As String = String.Empty

'Write out the column names as headers for the csv file.
For columnIndex As Int32 = 0 To 0
currentLine &= (String.Format("mycolumn_name"))
Next

'Remove trailing comma

csvFileContents.AppendLine(currentLine.Substring(0, currentLine.Length))
currentLine = String.Empty

'Write out the data.
For Each item As ListViewItem In ListView1.Items

For Each subItem As ListViewItem.ListViewSubItem In item.SubItems

currentLine &= (String.Format("""{0}"",", subItem.Text))

Next
'Remove trailing comma

csvFileContents.AppendLine(currentLine.Substring(0, currentLine.Length - 1))
currentLine = String.Empty

Next

'Create the file.
Dim sw As New System.IO.StreamWriter(filename)
sw.WriteLine(csvFileContents.ToString)
sw.Flush()
sw.Dispose()
Catch ex As Exception

End Try