Título del mensaje: Listar archivos de video con su duración.

Quisiera saber si hay alguna forma de listar un conjunto de archivos de video para que aparezca la duración del mismo.

Tengo una macro que muestra el nombre, tamaño, fecha modificación y tipo, por lo que pienso que puede haber alguna forma de que aparezca la duración.

Aquí dejo la macro para cualquier modificación que se le pueda hacer:

Código:

Sub LIsta_de_archivos() Application.ScreenUpdating = False Dim Carpeta As String: Carpeta = Range("a1"): Cells.Clear Range("a2:e2") = Array("Ruta", "Nombre", "Tamaño", "Modificado", "Tipo") Listar_archivos_en Carpeta, True End Sub Sub Listar_archivos_en(Carpeta As String, Completo As Boolean) Dim Archivo, SubCarpeta, Fila As Long Fila = Range("a65536").End(xlUp).Row + 1 With CreateObject("scripting.filesystemobject") With .GetFolder(Carpeta) For Each Archivo In .Files With Archivo Range("a" & Fila & ":e" & Fila) = Array( _ Application.Substitute(.Path, .Name, ""), .Name, .Size, .DateLastModified, .Type) End With Fila = Fila + 1 Next If Completo Then For Each SubCarpeta In .SubFolders Listar_archivos_en SubCarpeta.Path, True Next End If End With End With Range("a1:e1").EntireColumn.AutoFit Range("a1") = Carpeta Debug.Print ActiveSheet.UsedRange.Address End Sub

Título del mensaje: Re: Listar archivos de video con su duración.

Creo que si, usando un objeto WindowsMediaPlayer, el cual hay que referenciar. Luego habría que cargar el medio en cuestión y mediante currentMedia.duration del objeto obtenemos obviamente su duración. Ya que de por si, los ficheros no tienen propiedades que describan la duración del fichero. En todo caso estará presente internamente en su cabecera, así que habría que cargarlo para averiguarlo.

Todo ésto es en la teoría, en la práctica todavía no lo he probado... luego con más tiempo hago algún ejemplillo.

Título del mensaje: Re: Listar archivos de video con su duración.

WhiteSkull escribió:

Creo que si, usando un objeto WindowsMediaPlayer, el cual hay que referenciar. Luego habría que cargar el medio en cuestión y mediante currentMedia.duration del objeto obtenemos obviamente su duración. Ya que de por si, los ficheros no tienen propiedades que describan la duración del fichero. En todo caso estará presente internamente en su cabecera, así que habría que cargarlo para averiguarlo. Todo ésto es en la teoría, en la práctica todavía no lo he probado... luego con más tiempo hago algún ejemplillo.

Si es muy complicado...a lo mejor no merece la pena que lo intentes, porque luego no sé si sabré hacer todo eso que dices. Pensaba que con una línea de código bastaría. De todas formas si tienes tiempo y comentas tus pruebas quizás le sirva a alguien.

Aún así, te agradezco tu predisposición.

Título del mensaje: Re: Listar archivos de video con su duración.

Moises escribió:

De todas formas si tienes tiempo y comentas tus pruebas quizás le sirva a alguien. Aún así, te agradezco tu predisposición.

Jejejejeje Vamos a tener que subirle el sueldo
WhiteSkull, eres un genio

Título del mensaje: Re: Listar archivos de video con su duración.

Tesis escribió:

...Vamos a tener que subirle el sueldo...

Ah! tengo sueldo ? ! !