VB Code:
On Error GoTo TheError
Dim AllText, LineOfText As String
ofdInserttrack.Title = "Add a Track to the Mediaplayer"
ofdInserttrack.Filter = "All Song Types(*.mpeg,*.avi,*.mp3,*.wav,*.wma,*.cda)|*.*|MPEG (*.MPEG)|*.MPEG|avi (*.avi)|*.avi|MP3 (*.mp3)|*.mp3|Wav(*.wav)|*.wav|WMA (*.wma)|*.wma|CD(*.cda)|*.cda"
If ofdInserttrack.ShowDialog = DialogResult.Cancel Then
Exit Sub
Else
playlist.Items.Clear()
playlistPath.Items.Remove(playlistPath.SelectedIndex)
playlistPath.Items.AddRange(ofdInserttrack.FileNames)
MP3.ListNoChar(playlist, playlistPath)
If playlist.Items.Count > 1 Then
btnNext.Enabled = True
mnuNext.Enabled = True
btnPrevious.Enabled = True
mnuPrevious.Enabled = True
End If
End If
TheError: MsgBox(Err.Description, , " Error")