[RESOLVED]Openfiledialog

[wldrumstcs]

I just took out a few lines and it worked fine.

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")

[grilkip]

If openFileDialog1.ShowDialog() = DialogResult.OK Then
   'do your stuff
End If

[wldrumstcs]

didnt mean to press reply