Private Sub ListaDeReproduccionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ListaDeReproduccionToolStripMenuItem.Click On Error Resume Next ListView1.Items.Clear() OpenFileDialog1.Filter = "Lista de Reproducción (*.mpl4)|*.mpl4" OpenFileDialog1.ShowDialog() Dim rutaFichero As String rutaFichero = OpenFileDialog1.FileName If IO.File.Exists(rutaFichero) = True Then Dim fichero As New IO.StreamReader(rutaFichero) While (fichero.Peek() > -1) ListView1.Items.Add(fichero.ReadLine) End While fichero.Close() End If Me.ListView1.SelectedIndex = Me.ListView1.SelectedIndex + 1 'line where the error appears me' End Sub
On Error Resume Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)