duración del vídeo vba

Seleccione la cotización de arriba. Aquí hay un ejemplo que escribí?Dim?shl?As?Shell32.Shell Dim?shfd?As?Shell32.Folder Dim?F?As?Object Dim?i?As?Integer?' ?'Display Set?shl?=?New?Shell Set?shfd?=?shl.Namespace("H:\Thunder Download\IBW-518Z\") For?Each?F?In?shfd.Items

Si?F.Name?=?"IBW-518Z.mp4"?Entonces para?i?=?1?To?50

str?=?str?amp;?F .Name ?amp;?"---"?amp;?i?amp;?"---"?amp;?shfd.GetDetailsOf("IBW-518Z.mp4",?i)?amp;?"- -- "?amp;?shfd.GetDetailsOf(F,?i)?amp;?vbNewLine Next MsgBox?str

End?If Next

El resultado mostrado es

El atributo 27 es la duración del video que deseas. shfd.GetDetailsOf(F, ?27)

Si solo usas 27, solo tienes tiempo.

Pero los diferentes videos parecen tener atributos de duración variables. Puede ser 27 para MP4, pero puede llegar a ser 21 para otros videos, o algo más. Así que te sugiero que revises todos los atributos y verifiques si. el formato es correcto hh: mm: ss para determinar el atributo de duración