Een map in app.path open

[satriano17]

dag
ik heb een mooie stuk code op het net gevonden om muziek te spelen
met WindowsMediaPlayer wmp.dll

Private Sub Command1_Click()
Dim sMp3Files As String
Dim oMedia As IWMPMedia
sMp3Files = Dir("C:\soundfiles\*.mp3")
Do While LenB(sMp3Files) <> 0
Set oMedia = WindowsMediaPlayer1.newMedia("C:\soundfiles\" & sMp3Files)
oMedia.setItemInfo "Index", WindowsMediaPlayer1.currentPlaylist.Count
WindowsMediaPlayer1.currentPlaylist.appendItem oMedia
sMp3Files = Dir()
Loop
End Sub

In deze code worden de liedjes geopend in een vaste dir(c:\soundfiles)
Ik heb dezelde map in APP.Path gebracht maar ik kan niets laden

sMp3Files = Dir(App.Path & \"soundfiles\"&"*.mp3")

....
Set oMedia = WindowsMediaPlayer1.newMedia(APP.Path & "\soundfiles\" & sMp3Files)

ik maak zeker een fout .
hoe moet ik doen?
dank u
satriano

 

[wampier]

Heb je al geprobeerd je samengestelde directory te displayen?

msgbox(App.Path & \"soundfiles\"&"*.mp3")

Mogelijk staat bijvoorbeeld die eerste backslash verkeerd en als gevolg daarvan zit je in volledig de verkeerde directory

 

[satriano17]

dag, wampier.

sMp3Files = Dir(App.Path & "\soundfiles\" & "*.mp3")

inderdaad !
nu werkt het wel !
bedankt !

 

[wampier]

Maar wat komt er uit de messagebox? Als je file namelijk in de root staat krijg je 2x backslash uit die formule. Dus als je het programma in de root van C: hebt staan krijg je nu dit:

C:\\soundfile\*.mp3

De nieuwe implementatie in VB.net is wat consistenter

 

[satriano17]

mijn file staat niet in de root.
ik krijg nu iets als zoiets:
c:\users\mijnnaam\desktop\soundfiles\*.mp3
nu werkt perfect volgens mij

 

[satriano17]

de volledig code is nu

Private Sub Command1_Click()
Dim sMp3Files As String
Dim oMedia As IWMPMedia
sMp3Files = Dir(App.Path & "\soundfiles\" & "*.mp3")
Do While LenB(sMp3Files) <> 0
Set oMedia = WindowsMediaPlayer1.newMedia(App.Path & "\soundfiles\" & sMp3Files)
oMedia.setItemInfo "Index", WindowsMediaPlayer1.currentPlaylist.Count
WindowsMediaPlayer1.currentPlaylist.appendItem oMedia
sMp3Files = Dir()
Loop

End Sub

enig min punt:
in soundfiles staan naturlijk....mp3 files.
Bij de run wacht de programma dat ik op Play druk om de eertste liedje af te spelen.
zou misschien handiger zijn dat bij de run de eerste liedje direct begon, zonder op play te drukken?

 

[wampier]

Heb je al

WindowsMediaPlayer.Controls.Play ()

geprobeerd? het werkt voor een enkele file, ik neem aan dat het op een of andere manier ook een playlist zal afspelen