Fecha y hora actual: Sab 19 May, 2012 21:25 pm
Índice del Foro

Foros de programación informática, diseño gráfico y Web

En esta comunidad intentaremos dar soporte de programación a todos los niveles, desde principiantes a profesionales de la informática, desarrollo de programas, programación web y mucho más.

Listar archivos de video con su duración.

Responder al Tema

Índice del Foro > Excel > Listar archivos de video con su duración.

Autor Mensaje
Moises
Usuario Iniciado


Registrado: 22 Dic 2008
Mensajes: 42

Mensaje Publicado: Mar 19 Oct, 2010 16:16 pm

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

Responder citando

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

Volver arriba
Ver perfil del usuario Enviar mensaje privado
WhiteSkull
Moderador Global


Registrado: 20 Mar 2009
Mensajes: 2084
Ubicación: y*width+x

Mensaje Publicado: Mar 19 Oct, 2010 17:06 pm

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

Responder citando

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.


http://www.youtube.com/watch?v=-lT1zCukNQY
Volver arriba
Ver perfil del usuario Enviar mensaje privado Visitar sitio web del autor
Moises
Usuario Iniciado


Registrado: 22 Dic 2008
Mensajes: 42

Mensaje Publicado: Mar 19 Oct, 2010 21:33 pm

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

Responder citando

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.

Volver arriba
Ver perfil del usuario Enviar mensaje privado
Tesis
Administrador


Registrado: 04 Mar 2007
Mensajes: 2750
Ubicación: Valencia - España

Mensaje Publicado: Mie 20 Oct, 2010 00:49 am

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

Responder citando

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 Fumao Fumao Fumao
WhiteSkull, eres un genio Amigos


www.lospillaos.es
Normas del foro
Aprende a postear correctamente usando las etiquetas
Volver arriba
Ver perfil del usuario Enviar mensaje privado
WhiteSkull
Moderador Global


Registrado: 20 Mar 2009
Mensajes: 2084
Ubicación: y*width+x

Mensaje Publicado: Mie 20 Oct, 2010 02:49 am

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

Responder citando

Tesis escribió:
...Vamos a tener que subirle el sueldo...
Ordenador Ah! tengo sueldo ? ! ! Ojos Ojos


http://www.youtube.com/watch?v=-lT1zCukNQY
Volver arriba
Ver perfil del usuario Enviar mensaje privado Visitar sitio web del autor
Responder al Tema
Mostrar mensajes anteriores:   
Ir a:  
Todas las horas están en GMT + 2 Horas

Temas relacionados

Tema Autor Foros Respuestas Publicado
El foro no contiene ningún mensaje nuevo

Escritura de archivos binarios

julian403 C, C#, Visual C++ 2 Mar 15 May, 2012 04:40 am Ver último mensaje
El foro no contiene ningún mensaje nuevo

Transferir archivos de un cliente a un servidor

faster507 C, C#, Visual C++ 0 Mar 24 Abr, 2012 17:18 pm Ver último mensaje
El foro no contiene ningún mensaje nuevo

Ayuda con archivos binarios!

sakura C, C#, Visual C++ 6 Jue 12 Abr, 2012 20:22 pm Ver último mensaje
El foro no contiene ningún mensaje nuevo

Ayuda manejo de archivos por favor

fausto C, C#, Visual C++ 4 Mie 04 Abr, 2012 22:27 pm Ver último mensaje
El foro no contiene ningún mensaje nuevo

Listar fuentes de texto del sistema en un Combo...

WhiteSkull Visual Basic .NET 2 Mie 14 Mar, 2012 08:54 am Ver último mensaje
Panel de Control
No puede crear mensajes, No puede responder temas, No puede editar sus mensajes, No puede borrar sus mensajes, No puede votar en encuestas,