C'est un petit code sans prétentions qui permet de créer un fichier m3u et de le lire directement avec Windows media player.
Il y a quelques chemins d'accés qui sont spécifiques à mon PC, il suffit de le changer directement dans le code. (il n'y a à le faire qu'a un ou deux endroits).
Voilà, on voit comment écrire dans un fichier, plus quelques astuces sur les listes, pour n'afficher que l'essentiel tout en conservant l'ensemble des informations.
Source / Exemple :
'**************************************************
' GESTION DES BOUTONS
'**************************************************
Dim sauvegarde As Boolean
Private Sub ajoute_Click()
On Error GoTo errhandler:
sauvegarde = False
List1.AddItem File1.FileName
Listtravail.AddItem Dir1.path + "\" + File1.FileName
List1.ListIndex = List1.ListCount - 1
errhandler:
End Sub
Private Sub creer_Click()
saveData
Dim text$
text = "C:\Program Files\Windows Media Player\wmplayer.exe d:\fichier.m3u"
Shell text, vbNormalFocus
End Sub
Private Sub repertoire_Click()
Dim i%
For i = 0 To File1.ListCount - 1
File1.ListIndex = i
List1.AddItem File1.FileName
Listtravail.AddItem Dir1.path + "\" + File1.FileName
Next i
sauvegarde = False
File1.ListIndex = 0
End Sub
Private Sub vider_Click()
Do While List1.ListCount <> 0
List1.RemoveItem 0
Listtravail.RemoveItem 0
Loop
sauvegarde = False
End Sub
Private Sub retire_Click()
On Error GoTo errhandler:
sauvegarde = False
Listtravail.RemoveItem List1.ListIndex
List1.RemoveItem List1.ListIndex
errhandler:
End Sub
Private Sub sauve_Click()
saveData
End Sub
'**************************************************
' GESTION DES fenetres
'**************************************************
Private Sub Dir1_Change()
File1.path = Dir1.path
End Sub
Private Sub Drive1_Change()
Dir1.path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
ajoute_Click
End Sub
Private Sub List1_DblClick()
retire_Click
End Sub
Private Sub Form_Load()
On Error GoTo errhandler
sauvegarde = True 'la liste est celle sauvegardé
Drive1.Drive = "d:\"
Dir1.path = "d:\musiques"
ouvrir
errhandler:
End Sub
'************************************
' PROCEDURES
'************************************
Public Sub saveData()
' demande à l'utilsateur du lieu d'enregistrement
path = "d:\fichier.m3u"
sauvegarde = True
' il a t'y donné qqch ?
If path <> "" Then
' voui !
creation path
Else
If path <> "NO" Then _
MsgBox "Impossible d'enregistrer le fichier au format " _
& filtre, vbCritical + vbOKOnly
End If
End Sub
Public Sub creation(ByVal path$)
Dim f%, i%
f = FreeFile
Open path For Output As #f
For i = 0 To Listtravail.ListCount - 1
Print #f, Listtravail.List(i)
Next i
Close #f
End Sub
Public Sub ouvrir()
Dim ligne$, f%
On Error GoTo errhandler:
f = FreeFile
Open "d:\fichier.m3u" For Input As #f
Do While Not EOF(f)
Line Input #f, ligne
traiter ligne
Loop
errhandler:
Close #f
End Sub
Public Sub traiter(ByVal ligne As String)
Dim pos As Integer, temp As Integer
On Error GoTo fin:
pos = 0
Listtravail.AddItem ligne
temp = InStr(pos + 1, ligne, "\")
Do While temp <> 0
pos = InStr(pos + 1, ligne, "\")
temp = InStr(pos + 1, ligne, "\")
Loop
List1.AddItem Mid(ligne, pos + 1, Len(ligne) - pos)
Exit Sub
fin:
MsgBox Err.Description
End Sub
Conclusion :
RAS
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.