Listar Archivos:
La siguiente macro lista los archivos de una carpeta (parámetro)
Sub Recuperar_lista_principal()
Dim s_TuRuta
s_TuRuta = "C:\Users\Jesus\Desktop\PaginasFacebbokMyExcelTools\"
s_TuRuta = "C:\Users\Jesus\Desktop\PaginasFacebbokMyExcelTools\"
Call Mostrar_Archivos(s_TuRuta)
End Sub
'______________________________
Sub Mostrar_Archivos(s_ruta)
Dim fso, carpeta As Object, o_archivo As Object
Dim o_subcarpeta As Object, i_avanza As Integer
i_avanza = 0
Dim o_subcarpeta As Object, i_avanza As Integer
i_avanza = 0
Set fso = CreateObject("Scripting.FileSystemObject")
If s_ruta = "" Then
Exit Sub
ElseIf Right(s_ruta, 1) <> "\" Then
s_ruta = s_ruta & "\"
End If
If s_ruta = "" Then
Exit Sub
ElseIf Right(s_ruta, 1) <> "\" Then
s_ruta = s_ruta & "\"
End If
On Error GoTo Salir
Set carpeta = fso.GetFolder(s_ruta)
For Each o_archivo In carpeta.Files
i_avanza = i_avanza + 1
Range("A1").Offset(i_avanza, 0).Value = s_ruta & o_archivo.Name
i_avanza = i_avanza + 1
Range("A1").Offset(i_avanza, 0).Value = s_ruta & o_archivo.Name
Next
For Each o_subcarpeta In carpeta.SubFolders
Mostrar_Archivos (o_subcarpeta)
Next
Mostrar_Archivos (o_subcarpeta)
Next
Exit Sub
Salir:
MsgBox "No se ha encontrado la ruta", vbInformation, "Listado de archivos"
MsgBox "No se ha encontrado la ruta", vbInformation, "Listado de archivos"
End Sub
