Problema ao gravar determinado conteudo de uma ListView

[estica]

Amigos eu tenho uma ListView com um determinado conteúdo e grava tudo na boa... Mas se eu organizar por exemplo por ordem alfabética os itens já dá erro ao gravar...

Dim File As System.IO.StreamWriter

Dim P As Integer

Dim S As String
File = My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath & "\" & FileName, AppendTo)

For P = 0 To Listview.Items.Count - 1
S = Listview.Items.Item(P).Text & "," & _
Listview.Items(P).SubItems(1).Text & "," & _
Listview.Items(P).SubItems(2).Text & "," & _
Listview.Items(P).SubItems(3).Text & "," & _
Listview.Items(P).SubItems(4).Text & "," & _
Listview.Items(P).SubItems(5).Text
File.WriteLine(S)

Next
File.Close()

Este é o método que uso para gravar... Agora a minha pergunta é... não seria melhor fazer reset do arquivo antes de gravar? E que dá me erro.

[He B TeMy]

For each item as ListviewItem in listview.items
Dim values = string.empty
for each subitem as listviewsubitem in item.subitems
values += subitem.Text & ","
next
values += Environment.Newline 'para fazer a mudança de linha.
File.AppendAllText(Application.StartupPath & "\" & FileName,values)
Next

Quando postares alguma pergunta em que te dê um erro no futuro, posta a mensagem do erro.

[estica]

For each item as ListviewItem in listview.items
Dim values = string.empty
for each subitem as listviewsubitem in item.subitems
values += subitem.Text & ","
next
values += Environment.Newline 'para fazer a mudança de linha.
File.AppendAllText(Application.StartupPath & "\" & FileName,values)
Next

Quando postares alguma pergunta em que te dê um erro no futuro, posta a mensagem do erro.

Ok amigo. Já resolvi o problema 😉