Bijour!
Je souhaiterais affichier l'ensemble des mp3 d'un dossier , le pb ce ke je n'arrive à affichier que le 1er fichier mp3 .

le code:

Private Sub OKButton_Click()
Dim chemin As String, bis As String, fichier As String
Dim artiste As String, titre As String, album As String, année As String, genre As String, comment As String
Dim nvx As ListItem, i As Integer


chemin = Dir1.List(Dir1.ListIndex)

If (Right$(chemin, 1) <> "\") Then
chemin = chemin & "\"
End If


fichier = Dir$(chemin & "*.mp3")
Do
GetTag chemin & fichier, titre, artiste, album, année, comment, genre
Set nvx = frmmp3.List.ListItems.Add()
nvx.Text = fichier
nvx.SubItems(7) = chemin & fichier
nvx.SubItems(1) = titre
nvx.SubItems(2) = artiste
nvx.SubItems(3) = album
nvx.SubItems(4) = année
nvx.SubItems(5) = genre
nvx.SubItems(6) = comment

fichier = Dir$

Loop Until fichier = vbNullString


Unload Me
frmmp3.SetFocus


End Sub


Pourrais t-on m'aider ?
merci d'avance !!!

Salut
En effet, le Dir(Rep & "\*.type") ne te renvoie que le premier fichier.
Pour lire les suivants, il faut faire une boucle :

Dim Ligne as String

Ligne = Dir(MonRep & "\*.MonType2Fichiers")
Do While Ligne <> ""
gnagnagna... ' Utilisation de l'info reccueillie
Ligne = Dir() ' Cherche les fichiers suivants (pas de paramètres)
DoEvents
Loop

Vala
Jack


-------------------------------
Réponse au message :
-------------------------------

> Bijour!
> Je souhaiterais affichier l'ensemble des mp3 d'un dossier , le pb ce ke je n'arrive à affichier que le 1er fichier mp3 .
>
> le code:
>
> Private Sub OKButton_Click()
> Dim chemin As String, bis As String, fichier As String
> Dim artiste As String, titre As String, album As String, année As String, genre As String, comment As String
> Dim nvx As ListItem, i As Integer
>
>
> chemin = Dir1.List(Dir1.ListIndex)
>
> If (Right$(chemin, 1) <> "\") Then
> chemin = chemin & "\"
> End If
>
>
> fichier = Dir$(chemin & "*.mp3")
> Do
> GetTag chemin & fichier, titre, artiste, album, année, comment, genre
> Set nvx = frmmp3.List.ListItems.Add()
> nvx.Text = fichier
> nvx.SubItems(7) = chemin & fichier
> nvx.SubItems(1) = titre
> nvx.SubItems(2) = artiste
> nvx.SubItems(3) = album
> nvx.SubItems(4) = année
> nvx.SubItems(5) = genre
> nvx.SubItems(6) = comment
>
> fichier = Dir$
>
> Loop Until fichier = vbNullString
>
>
> Unload Me
> frmmp3.SetFocus
>
>
> End Sub
>
>
> Pourrais t-on m'aider ?
> merci d'avance !!!
>
>
>

J'allais zoublié : Ligne = Dir(Rep & "\*.mp3")
te renverra tout : le chemin et le fichier ("C:\MonRep\Stones.MP3").
Donc, après avoir récupéré cette info, il ne faudrait pas ajouter Rép avant, sinon tu auras le répertoire deux fois

revala
Jack