I want to be able to have someone click a command button, then have a directory form show, that part is complete. Now i need help adding all the files in this directory to a list with the extensions ".mp3, .wav, and .mid". this is what i have so far.
[CODE=vb]Private Sub cmdAddDir_Click ()
Dim di As New IO
.DirectoryInfo ("c:\")
Dim diar1 As IO
.FileInfo() = di.GetFiles("*. mp3", "*.wav", "*.mid")
Dim dra As IO.FileInfo
For Each dra In diar1
lstSongs.Items. Add (dra)
Next
End Sub[/CODE]
any hints or tips would be appreciated
-Jacob
[CODE=vb]Private Sub cmdAddDir_Click ()
Dim di As New IO
.DirectoryInfo ("c:\")
Dim diar1 As IO
.FileInfo() = di.GetFiles("*. mp3", "*.wav", "*.mid")
Dim dra As IO.FileInfo
For Each dra In diar1
lstSongs.Items. Add (dra)
Next
End Sub[/CODE]
any hints or tips would be appreciated
-Jacob
Comment