элементы ListView и сохранение их в .csv

Question

я делаю этот проект, где мне нужно, чтобы сохранить имена элементов из ListView в .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, но это должно дать вам идею.