Expand|Select|Wrap|Line Numbers
- 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
-Jacob