Re : comment récupérer le nom de fichier mp3 dans un m3u??
merci jmps
mais j'ai pas tout compris
Sub M3U()
Dim Ligne As String, Debut As Byte, Longueur As Byte, Chanson As String
Open "c:\monfichier.m3u" For Input As #1 'pourquoi open??
While Not EOF(1) '??
Line Input #1, Ligne '??
If Left(Ligne, 8) = "#EXTINF:" Then
Debut = InStr(Ligne, "-") + 2 'c koi instr?
Longueur = Len(Ligne) - 3 - Debut 'len=longueur?
Chanson = Mid(Ligne, Debut, Longueur) 'c koi mid, milieu?
MsgBox Chanson
End If
Wend
Close
End Sub