XL 2010 Récupérer la DURÉE d'un fichier AUDIO ou VIDEO

[Magic_Doctor]

Bonsoir

Tout est dans le titre.

Après avoir activé la référence "Microsoft Scripting RunTime", on peut récupérer nombre de donnés concernant un fichier (taille, type...), mais peut-on récupérer, quand il s'agit d'un fichier Audio ou Vidéo, la durée ?
Je pense que cela doit être possible puisque quand dans la bibliothèque on "clique-droit" sur ce type de fichier, à Propiétés/Détails on peut voir la durée du fichier. Du reste, on peut la mettre une fois pour toutes dans la configuration de la feuille.

 

[Staple1600]

Bonsoir

Un exemple tout sorti du net anglophone

Function GetVideoDuration(fPName As String) As Long
'returns the duration in seconds of the specified video path+fPNamename
    Dim oFolder, ofPName
    With CreateObject("Shell.Application")
        Set oFolder = .Namespace(Left(fPName, InStrRev(fPName, "\") - 1))
        Set ofPName = oFolder.ParseName(Right(fPName, Len(fPName) - InStrRev(fPName, "\")))
        GetVideoDuration = GetVideoDuration = oFolder.GetDetailsOf(ofPName, 27)
    End With
End Function

Sub Test()
MsgBox GetVideoDuration("Path To Video Here\myVideo.mp4")  ''///returns a duration in seconds
End Sub

 

[job75]

Bonsoir,

@Staple1600 as-tu testé ? Car ceci ne peut que renvoyer un booléen :

GetVideoDuration = GetVideoDuration = oFolder.GetDetailsOf(ofPName, 27)

A+

 

[Staple1600]

Bonjour Job75

Non, je n'ai pas testé car je n'ai de fichier vidéo sur ce PC
(vu que l'installation de Windows 10 date de ce matin)
Et j'ai fait un bête copier/coller
Donc la version à tester

Function GetVideoDuration(fPName As String) As Long
'returns the duration in seconds of the specified video path+fPNamename
    Dim oFolder, ofPName
    With CreateObject("Shell.Application")
        Set oFolder = .Namespace(Left(fPName, InStrRev(fPName, "\") - 1))
        Set ofPName = oFolder.ParseName(Right(fPName, Len(fPName) - InStrRev(fPName, "\")))
        GetVideoDuration = oFolder.GetDetailsOf(ofPName, 27)
    End With
End Function

Sub Test()
MsgBox GetVideoDuration("Path To Video Here\myVideo.mp4")  ''///returns a duration in seconds
End Sub

 

[TooFatBoy]

ceci ne peut que renvoyer un booléen

Ah, ça explique pourquoi ça me renvoie tout le temps "0"...


[edit]
Au temps pour moi, je n'avais pas regardé le code et donc pas vu l'erreur avec le double égal.
[/edit]

 

[Staple1600]

Re

[aparte]
Merci à Magic_Doctor pour sa question
Cela m'a permis d'étoffer ma bibliothèque de scripts Powershell

Nb: non encore testé sur mon PC (je n'ai pas de MP3 non plus )

 

[Staple1600]

Bonsoir Marcel32

Oui désolé pour le copier/coller sans relecture.

 

[TooFatBoy]

Bonsoir Marcel32

Oui désolé pour le copier/coller sans relecture.

No problemo, man !

Nb: non encore testé sur mon PC (je n'ai pas de MP3 non plus )

Euh... y a une VideoDuration pour un MP3 ???


Pour info, #4 ne fonctionne pas chez oim : incompatibilité de gars qu'il dit le type (ou l'inverse)...

Ceci dit, je trouve que Windows est tellement peu fiable au niveau des informations des fichiers A/V que je ne comprends vraiment pourquoi l'utiliser pour tenter de les récupérer.

 

[Staple1600]

Ceci dit, je trouve que Windows est tellement peu fiable au niveau des informations des fichiers A/V que je ne comprends vraiment pourquoi l'utiliser pour tenter de les récupérer.

Je n'osais pas le dire
Il y a des outils tiers qui font très bien la chose.
(et tu as testé le script PowerShell -> cf lien message#6 ?)

 

[TooFatBoy]

Il y a des outils tiers qui font très bien la chose.

Toutafé !

(et tu as testé le script PowerShell -> cf lien message#6 ?)

Non.
Pis c'est en english...
Pis je sais pô utiliser la puissance de la coquille moi...

 

[Staple1600]

Re

Test OK chez moi avec des MP3 (au nombre de 3)
Et de très bonne facture

Voici le script Powershell
NB: Adapter le chemin de $Directory en conséquence.

$Directory = 'C:\Users\STAPLE\Music'
$Shell = New-Object -ComObject Shell.Application
Get-ChildItem -Path $Directory -Recurse -Force | ForEach {
    $Folder = $Shell.Namespace($_.DirectoryName)
    $File = $Folder.ParseName($_.Name)
    $Duration = $Folder.GetDetailsOf($File, 27)
    [PSCustomObject]@{
        Name = $_.Name
        Duration = $Duration
    }
} | Export-Csv -Path "./test.csv" -Delimiter ';' -NoTypeInformation

A copier dans le bloc-notes et enregistrer sous duréeMedia.ps1
(ailleurs que dans le dossier contenant les fichiers médias)
Puis clic-droit sur ce fichier *.ps1 et choisir Exécuter avec PowerShell
Ouvrir ensuite le *.csv obtenu avec Excel.

 

[Magic_Doctor]

Bonsoir à tous,

J'avais trouvé la même fonction sur le même site anglophone.
J'ai fait des essais. Ça marche pour .mp3, .mp4, .avi, mais pas .mkv.

Pour le MessageBox, plutôt que d'avoir des secondes, j'ai fait la modification suivante :

Sub Tiempo()

    Dim TotalSecondes%
    
    TotalSecondes = GetVideoDuration("I:\FILMS\Clara película\Clara.2018.720p.WEBRip.x264-[YTS.AM].mp4")
    
    MsgBox Format(TotalSecondes / 86400, "hh:mm:ss")
End Sub

 

[Staple1600]

Bonsoir Magic_Doctor

Le script PowerShell du message#11 traite tout le contenu d'un dossier.
Tu as testé?
(en mixant MP3 et Mp4 dans le dossier)

 

[TooFatBoy]

Le script de #11 n'a rien à voir avec celui de #6 !?!

#6 est censé faire quoi ?

 

[Staple1600]

Re

Marcel32
Le #6 c'est du WSH (Windows Scripting Host)

Le#11 du PowerShell

On remarquera la similitude
GetDetailsOf($File, 27)