Excel - Rescatar datos del explorador

   
Vista:

Rescatar datos del explorador

Publicado por Gustavo Saldivia (2 intervenciones) el 05/08/2008 05:07:19
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?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Rescatar datos del explorador

Publicado por jcs (494 intervenciones) el 05/08/2008 09:46:43
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar