Excel - Rutina que liste directorio en una columna

Buenas Tardes......

Tendran alguna macro que liste un directorio y lo liste en una columna.....????

gracias y saludos............

JAG

Un ejemplo:

Const Carpeta = "d:"
Sub Nombres_Archivos()
Dim FSO As Object
Dim FSOFolder As Object
Dim FSOfile As Object
Dim archivo As Long
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FSOFolder = FSO.GetFolder(Carpeta)
archivo = 1
With ActiveSheet
For Each FSOfile In FSOFolder.Files
.Range("a" & archivo) = FSOfile.Name
archivo = archivo + 1
Next
End With
End Sub

Abraham

Gracias por la respuesta es exactamente lo que necesitaba .

Saludos Abraham....................

JAG