Salut
Private Sub ReadAllFile(ByVal path As String)
Try
ListBox1.Items.Clear()
ListBox1.Items.AddRange(System.IO.File.ReadAllLines(path).ToArray)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Buttontest_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Buttontest.MouseClick
OpenFileDialog1.ShowDialog()
End Sub
Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
If e.Cancel = True Then Exit Sub
ReadAllFile(DirectCast(sender, OpenFileDialog).FileName)
End Sub