Text dosyasinin icerigini listboxta gostermek .NET

.Net te geçen böyle birşey lazım oldu,blogta paylaşmanın,yararı olur.Hem gözümün önünde dursun,hemde ziyaretçilerim faydalansın.

 
Ne işe yarar alttaki kod ?
Farzedelim ki bir tane yazı dosyanız var .txt şekilde ve bunu .net te listboxta göstermek istiyorsunuz. Alttaki kodu kullanabilirsiniz.Saygılar efenim..

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenF.InitialDirectory = "./"
OpenF.FileName = "Text dosyasını açın.."
OpenF.Filter = "SADECE Text dosyaları (*.txt) | *.txt"
OpenF.ShowDialog()

Dim R As New IO.StreamReader(OpenF.FileName)
Dim str As String() = R.ReadToEnd().Split(New String(Environment.NewLine, StringSplitOptions.RemoveEmptyEntries))

ListBox1.Items.AddRange(str)
R.Close()
End Sub