Slt,
j'ai 2 solutions:
-1- Ouvrir le fichier pour récupérer le temps MCI
Function TempsMCI(ByVal Fichier As String) As String
Dim Hr, Min, Sec, ms As Long
Hr = 0
MM.Notify = False
MM.Wait = False
MM.FileName = Fichier
MM.DeviceType = "MPEGVIDEO"
MM.Command = "open"
ms = MM.Length
MM.Command = "close"
Do While ms > 1000
ms = ms - 1000
Sec = Sec + 1
If Sec > 59 Then Min = Min + 1: Sec = 0
If Min > 59 Then Hr = Hr + 1: Min = 0
Loop
TempsMCI = Format(Hr, "00") & ":" & Format(Min, "00") & ":" & Format(Sec, "00")
End Function
-2- Utiliser la DLL vorbisfile.dll dispo sur le site Xiph.org
Note toute fois que je ne suis pas parvenu pour le
moment a faire fonctionner cette saletée, mais je vais
bien finir par trouver...Je ne manquerais pas de faire
post...
___________________________________________
Le plus grand des défaut de l'homme
c'est de toujours pointer un doigt accusateur...
Mais jaimais devant un miroir...
___________________________________________
|