Saber la duración de un archivo de vídeo en Excel usando VBA

Escrito por Administrador

23 de febrero de 2024

A petición de un usuario, esta semana os traigo un código para saber la duración de un archivo de vídeo en Excel usando VBA.

Para ello, simplemente he creado un botón que, al pulsarlo, nos va a mostrar un msgbox con la duración del archivo de vídeo que hayamos seleccionado.

El código que hay detrás del botón es el siguiente,

Sub ObtenerDuracionVideo()

Dim videoFilePath As String
Dim shellApp As Object
Dim folder As Object
Dim folderItem As Object
Dim duration As String

'Creamos una instancia de Shell32

Set shellApp = CreateObject("Shell.Application")

'Obtenemos el objeto FolderItem para el archivo de video. Cambia lo siguiente por tu ruta y nombre de archivo de video

Set folder = shellApp.Namespace("C:\ruta\de\tu\archivo\")
Set folderItem = folder.ParseName("nombredetuarchivo.mp4")

'Obtenemos la duración del video en formato de tiempo (hh:mm:ss)

duration = folder.GetDetailsOf(folderItem, 27)

'Mostramos la duración del video

MsgBox "La duración del video es: " & duration

End Sub

Recordad que para utilizar Shell.Application es necesario activar la siguiente referencia,

saber-usuarios-conectados-base-datos

Espero que este código te ayude a saber la duración de un archivo de vídeo en Microsoft Excel usando VBA. Descárgate el archivo de ejemplo y practica.

Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.

Hasta la próxima.

Si te ha servido y quieres donar

Descarga el archivo del ejemplo

0 comentarios

Enviar un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Últimas publicaciones

Categorías

abril 2024
LMXJVSD
1234567
891011121314
15161718192021
22232425262728
2930 

Debates en el foro

Avatar
Formularios con ADO

Contacto