Utiliser Windows Media Player en VB et VBA

Bonjour :)

C'est mon 1er post, je suis loin d'être un expert en programmation alors je fais selon les différents tutoriels et celui-ci a attiré mon attention :

Utiliser Windows Media Player en Visual Basic

Le coup de la playlist m'intéresse mais dans l'exemple du tutoriel, je vois qu'il faut ajouter les fichiers musicaux 1 par 1 avec le nom de chacun.
Est-il possible que cette liste se crée toute seule si j'indique dans quel dossier se trouvent les musiques ?
Merci beaucoup pour votre attention :)

Salut, bienvenu sur DVP
Sur un Form, un WindowsMediaPlayer, un FileListBox, et le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Option Explicit   Private Sub File1_Click() 'utilisation de la PlayList 'Lire une séquence spécifique de la PlayList Dim It As Object Set It = WindowsMediaPlayer1.currentPlaylist.Item(File1.ListIndex) 'jouer le fichier WindowsMediaPlayer1.Controls.playItem It End Sub   Private Sub Form_Load() Dim Xwmp As IWMPMedia 'nettoye la Playlist en cours avant de réalimenter la liste WindowsMediaPlayer1.currentPlaylist.Clear 'Selection des types de fichiers à afficher dans la liste File1.Pattern = "*.avi;*.mp3" '(Il peut être ajouté des types) 'chemin repertoire ou ce trouve les fichiers MEDIA (*** ADAPTER ***) File1.Path = "C:\Provisoir" Dim T As Integer 'remplis la liste dans WindowsMediaPlayer For T = 0 To File1.ListCount - 1 Set Xwmp = WindowsMediaPlayer1.newMedia(File1.Path & "\" & File1.List(T)) WindowsMediaPlayer1.currentPlaylist.insertItem T, Xwmp Next T End Sub Private Sub Form_Unload(Cancel As Integer) WindowsMediaPlayer1.Close End Sub

---

Ah c'est cool ! je devrais pouvoir y arriver avec tes suggestions, merci infiniment :D

Ton code fonctionne très bien :)

A tout hasard j'ai essayé cette instruction :

Code:

---

WindowsMediaPlayer1.settings.setMode "shuffle", True

---

pour la lecture aléatoire et ça fonctionne, j'ai réellement pu faire ce que je voulais :)

Encore merci.