Código
Dim linea As Integer Dim escritor As New System.IO.StreamWriter(ruta_del_archivo) 'Va recorriendo cada linea hasta llegar al final For linea = 0 To (ListView1.Items.Count - 1) ' Guarda una linea del fichero escritor.WriteLine(ListView1.Items.Item(linea)) Next ' Cerrar el fichero escritor.Close() escritor.Dispose() 'Eliminamos el objeto