automatisch laden mp3

[bonnowagt]

Als ik klik op een mp3 file wordt mijn mediaspeler (eigengemaakt) geopend met de volgende code:

    Dim Pad As String = My.Application.CommandLineArgs(0)
            Dim Pad2 As String = (Path.GetFileNameWithoutExtension(My.Application.CommandLineArgs(0)))
            If Pad.EndsWith(".mp3") Or Pad.EndsWith(".mp4") Or Pad.EndsWith(".wav") Or Pad.EndsWith(".flac") Then
                Timer1.Enabled = True
                '     AxWindowsMediaPlayer1.URL = Pad
                ListBox1.Items.Add(Pad2)
                ListBox2.Items.Add(Pad)
                Form2.ListBox1.Items.Add(Pad2)
                ListBox1.SelectedIndex = 0
                ListBox2.SelectedIndex = ListBox1.SelectedIndex
                TrackBar1.Enabled = True : Timer1.Enabled = True
                '  If Pad.EndsWith(".mp3") Or Pad.EndsWith(".mp4") Or Pad.EndsWith(".wav") Or Pad.EndsWith(".flac") Then TrackBar1.Enabled = False : Timer1.Enabled = False
                TrackBar1.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
            End If

Dit werkt snel en perfect. Aleen als ik meerdere files tegelijk selecteer dus bijvoorbeeld vijf dan start mijn programma ook vijf keer op met een file. Mijn vraag is dan ook hoe krijg ik deze files op de afspeellijst in een keer;

 

[manamana]

Hallo bonnowagt. Heb je hier wat aan. Troubleshoter.
http://windows.microsoft.com/nl-NL/...udio-or-video-file-frequently-asked-questions

 

[JoZ1]

En zo:
[cpp]For Each arg As String In My.Application.CommandLineArgs
MessageBox.Show(arg)
Next[/cpp]

 

[bonnowagt]

Hoe bedoel je dit met die drie regels, dien ik deze in de code in te passen? en waar?

 

[JoZ1]

Zo hoest je alle CommandLineArgs op. Dat wilde je toch?

 

[bonnowagt]

Ja dat klopt en alle worden ook wel opgehoest maar voor elke arg wordt ook de mediaspeler opnieuw opgestart en dat is dus niet de bedoeling, als ik bijv. drie arg heb zouden deze in de speellijst, listbox1, moeten komen staan.

 

[JoZ1]

[CPP]For Each arg As String In My.Application.CommandLineArgs
ListBox1.Items.Add(arg)
Next[/CPP]