Элементы списка и сохранение их в формате .csv

Question

Я делаю этот проект, где мне нужно сохранить имена элементов из списка в .csv

Imports System.IO

Public Class cv7import

Private Sub cv7import_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim caminho As String
    caminho = "C:\Documents and Settings\Software\Ambiente de trabalho\cv7import"

    Dim returnValue As String()
    returnValue = Environment.GetCommandLineArgs()
    If returnValue.Length > 1 Then
        MessageBox.Show(returnValue(1).ToString())
    Else
        MessageBox.Show("Nothing")
    End If

    ' Set ListView Properties  
    lstvicon.View = View.Details
    lstvicon.GridLines = False
    lstvicon.FullRowSelect = True
    lstvicon.HideSelection = False
    lstvicon.MultiSelect = True

    ' Create Columns Headers  
    lstvicon.Columns.Add("Nome")
    lstvicon.Columns.Add("Extensão")
    lstvicon.Columns.Add("Tamanho")
    lstvicon.Columns.Add("Data Modificação")

    Dim DI As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(caminho)

    Dim files() As System.IO.FileInfo = DI.GetFiles

    Dim file As System.IO.FileInfo

    Dim li As ListViewItem
    For Each file In files
        li = lstvicon.Items.Add(file.Name)
        li.SubItems.Add(file.Extension)
        li.SubItems.Add(file.Length)
        li.SubItems.Add(file.LastWriteTimeUtc)
        'li.SubItems.Add(FileDialog)
    Next



End Sub

Private Sub btnimp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnimp.Click

    ' Creates a csv File
    Dim csv As New System.IO.StreamWriter("C:\Documents and Settings\Software\Ambiente de trabalho\cv7import\teste.csv", True)

    lstvicon.SelectedItems.CopyTo(csv)

    csv.Close()


End Sub
End Class

Это то, что я получил, но я не могу заставить его написатьна .txt.

Я понятия не имею, куда идти отсюда, и я обходил это часами, поэтому любая помощь будет оценена.

Answer 1

Я думаю, что вы хотите что-то вроде этого:

    ' Creates a csv File
    Using csv As New System.IO.StreamWriter("C:\Documents and Settings\Software\Ambiente de trabalho\cv7import\teste.csv", True)
        For Each oItem As ListViewItem In ListView1.Items
            csv.WriteLine(String.Format("""{0}"",""{1}"",{2},{3}", oItem.Text, oItem.SubItems(0).Text, oItem.SubItems(1).Text, oItem.SubItems(2).Text )
        Next
    End Using

Возможно, вам потребуется очистить форматирование CSV, но это должно дать вам представление.