Как осуществить поиск в папке с музыкой и добавить названия файлов в массив?

 
Public Class Плеер
    Dim n As Integer = 0
    Dim mus As Array = {"02_-_Jet_-_Rip_It_Up", _
                        "03_-_Cute_Is_What_We_Aim_For_-_Theres_A_Class_For_This", _
                        "04_-_Awww_Dip_-_Cobra_Starship", _
                        "05_-_Meg_and_Dia_-_Roses", _
                        "06_-_Pepper_-_Bring_Me_Along", _
                        "07_-_Amber_Pacific_-_Fall_Back_Into_My_Life", _
                        "08_-_Billy_Talent_-_Red_Flag", _
                        "09_-_This_Providence_-_Walking_on_Water", _
                        "10_-_Ever_We_Fall_-_Youth_Like_Tigers", _
                        "11_-_P.O.D._-_Lights_Out", _
                        "12_-_Big_City_Rock_-_Black_Betty", _
                        "13_I_Love_Being_A_Turtle_Score"} '0,1,2,3,4,5,6,7,8,9,10,11,12
    Private Sub Проверяет_состояние_плеера(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles WindowsMediaPlayer1.PlayStateChange
        On Error Resume Next
        If e.newState = WMPLib.WMPPlayState.wmppsMediaEnded Then
            n += 1
            If n = 12 Then '12!
                n = 0
            End If
            WindowsMediaPlayer1.URL = Application.StartupPath & "/музыка/" & mus(n) & ".mp3"
            WindowsMediaPlayer1.Ctlcontrols.play()
        ElseIf e.newState = WMPLib.WMPPlayState.wmppsReady Then
            WindowsMediaPlayer1.Ctlcontrols.play()
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        WindowsMediaPlayer1.URL = Application.StartupPath & "/музыка/" & mus(0) & ".mp3"
    End Sub
End Class

        Dim FBD As New FolderBrowserDialog
        Dim Songs() As String
        If FBD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Songs = IO.Directory.GetFiles(FBD.SelectedPath, "*.mp3", IO.SearchOption.AllDirectories)
            'Проверяем, что в массиве:
            For I As Integer = 0 To Songs.Length - 1
                MsgBox(Songs(I), MsgBoxStyle.Information)
            Next
        End If

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        For I As Integer = 0 To Songs.Length - 1
            TextBox1.Text &= Songs(I) & vbNewLine
            'mus.SetValue ( Songs(I), n)
n+=1
        Next
    End Sub

Dim Songs() As String= IO.Directory.GetFiles(Application.StartupPath & "/музыка/","*.mp3", IO.SearchOption.AllDirectories)
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        For I As Integer = 0 To Songs.Length - 1
            mus.SetValue ( Songs(I), n)
             n+=1
        Next
    End Sub

Dim mus As Array
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        mus = IO.Directory.GetFiles("G:\Русская музыка\", "*.mp3", IO.SearchOption.AllDirectories)
    End Sub

Public Class Form1
    Dim mus() As String
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        mus = IO.Directory.GetFiles("G:\Русская музыка\", "*.mp3", IO.SearchOption.AllDirectories)
        add("G:\Русская музыка\")
    End Sub
    Private Sub add(ByVal path As String)
        Dim m() As String = IO.Directory.GetFiles(path, "*.mp3", IO.SearchOption.AllDirectories)
        Dim x As Integer = m.Length
        ReDim Preserve mus(m.Length + mus.Length - 1)
        For i = 0 To m.Length - 1
            mus.SetValue(m(i), x + i)
        Next
    End Sub
End Class

'Проигрывает фоновую музыку, которая сменяется
'Без управляющих элементов плеера на форме
Public Class Плеер
    Dim n As Integer = 0
    'Dim Songs() As String = IO.Directory.GetFiles(Application.StartupPath, "*.mp3", IO.SearchOption.AllDirectories)
    Dim files As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles(Application.StartupPath, FileIO.SearchOption.SearchAllSubDirectories, "*.mp3")
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'WindowsMediaPlayer1.URL = Songs(n)
        WindowsMediaPlayer1.URL = files.Item(n)
    End Sub
    Private Sub Проверяет_состояние_плеера(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles WindowsMediaPlayer1.PlayStateChange
        On Error Resume Next
        If e.newState = WMPLib.WMPPlayState.wmppsMediaEnded Then
            n += 1
            If files.Count = n Then
                n = 0
            End If
            'If Songs.Length = n Then
            '    n = 0
            'End If
            'WindowsMediaPlayer1.URL = Songs(n)
            WindowsMediaPlayer1.URL = files.Item(n)
            WindowsMediaPlayer1.Ctlcontrols.play()
        ElseIf e.newState = WMPLib.WMPPlayState.wmppsReady Then
            WindowsMediaPlayer1.Ctlcontrols.play()
        End If
    End Sub
End Class