AJUDA COM PLAYLIST

Dim m As String = [Ô]c:\user\computador\music    he disco colection(1982)\04-The Alan Parsons Projecte - The Eyed in the Sky[Ô]
Dim t As Integer = m.LastIndexOf([Ô]\[Ô]) + 1
MessageBox.Show(m.Substring(t, m.Length - t))

  Dim pathmusics As String
    Dim extens As String
    Private Sub LoadFiles(ByVal mediaType As String)
        Dim supportedFiles As String
        Dim audioFiles As String


        Select Case mediaType
            Case [Ô]Audio[Ô]
                supportedFiles = audioFiles
            Case Else
                supportedFiles = audioFiles
        End Select

        With OpenFileDialog1
            .InitialDirectory = [Ô]C:\ [Ô]
            .Filter = supportedFiles
            .CheckFileExists = True
            .Multiselect = True
            .RestoreDirectory = True
        End With

        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            For Each fileNamePath In OpenFileDialog1.SafeFileNames
                pathmusics = FileIO.FileSystem.GetFileInfo(OpenFileDialog1.FileName).DirectoryName
                extens = FileIO.FileSystem.GetFileInfo(OpenFileDialog1.FileName).Extension
                [ô] MsgBox(pathmusics)
                Me.ListBox1.Items.Add(fileNamePath)
            Next
        End If


    End Sub

 

   
   

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        [ô]MsgBox(pathmusics & ListBox1.SelectedValue)
        AxWindowsMediaPlayer1.URL = pathmusics & [Ô]\[Ô] & ListBox1.SelectedItem.ToString
    End Sub