Excel - Rescatar datos del explorador

Hola...estoy buscando como poder traer a una columna datos, por ejemplo, de duración de cada video en una carpeta X...¿puede alguien ayduarme?

Muy buenas,

mira a ver si te vale esta macro:

Sub tamaño()
Dim Ruta, Nombre, tipoficheros
i = 1
MiRuta = "c:" ' Establece la ruta.
tipoficheros = "*.*"
MiNombre = Dir(MiRuta & tipoficheros) ' Recupera la primera entrada.
Do While MiNombre <> "" ' Inicia el bucle.
Cells(i, 1) = MiNombre ' Muestra la entrada
Cells(i, 2) = FileLen(MiRuta & MiNombre)
i = i + 1
MiNombre = Dir ' Obtiene siguiente entrada.
Loop
End Sub

Pon en MiRuta = "c:" la carpeta que tu quieras, y en tipoficheros = "*.*" el tipo que desees, por ejemplo "*.avi"

Espero que te funcione.

Un saludo. Juanjo.