Quizás esto te sirva:
Código (vbnet) [Seleccionar]
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