File List&Load (VB.NET)

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' make a reference to a directory
        Dim di As New IO.DirectoryInfo("c:\Anime\")
        Dim diar1 As IO.FileInfo() = di.GetFiles()
        Dim dra As IO.FileInfo

        ' you can do this instead of a for loop
        ListBox1.DataSource = diar1

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim tdra As IO.FileInfo = ListBox1.SelectedItem
        Process.Start(tdra.FullName)
    End Sub

End Class