Listar Archivos de un Directorio

En este artículo veremos un método simple para crear una lista con los nombre de los archivos contenidos en una carpeta. 
De este modo con un solo paso podrás tener en un archivo texto los títulos de tus canciones, fotos, etc. 

Sub ListaDir()

Dim i As Long

Dim MiRuta As String

Dim MiNombre As String

i = 1

MiRuta = "TU DIRECTORIO"

MiNombre = Dir(MiRuta, 0)

Do While MiNombre <> ""

If MiNombre <> "." And MiNombre <> ".." Then

Range("A" & i) = MiNombre

i = i + 1

End If

MiNombre = Dir

Loop

End Sub

Solo cambia el Texto "TU DIRECTORIO"  por la ruta que tu desees.ejecuta el codigo y listoooo!!!!