Load Files into listbox

[Stick]

Hey.
how can you load files into a list box.
Say i have a folder C:\Files and i want to add ONLY the .mp3 file names into a listbox how would i do this?
Thanks

[JesusFreak]

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

        'list the names of all files in the specified directory
        For Each dra In diar1
            ListBox1.Items.Add(dra)
        Next
    End Sub

To get only .mp3 files change di.GetFiles() to di.GetFiles(.mp3).
(I think)

[Slow_Learner]

Almost, it's

di.GetFiles("*.mp3")

and to add to the listbox you probably only want the filename, so it would be

ListBox1.Items.Add(dra.Name)

[Stick]

Hey it works great thanks all~!

[nemaroller]

Or to be brief about it, and, lose the performance hit of a for-next, and, lose the resources caused by declaring the FileInfo and other class instance:

Dim di As New System.IO.DirectoryInfo("[b]C:\Documents and Settings\You\My Documents\My Music[/b]")
 
ListBox1.Items.AddRange(di.GetFiles("*.mp3"))

those are the only two lines you need... just make sure to change the path highlighted in bold or you'll
get a path not found error.

[Slow_Learner]

Yeah that's a much better way to do it.