Buenas tardes
tengo una estructura de carpeta, subcarpeta y sub-subcarpeta, estoy intentando hacer una macro que copie los archivos en de la sub-subcarpeta y los pegue en otra pero excel me indica que el objeto no admite ese método, me podrían ayudar por favor
Dim Ruta, Destino As String
Dim fs, Carpeta, Archivo, SubCarpeta, SubSubCarpeta As Object
Ruta = "C:\Users\User\Desktop\CarpetaA\"
Destino = "C:\Users\User\Desktop\CarpetaBase\"
Set fs = CreateObject("scripting.FileSystemObject")
Set Carpeta = fs.getfolder(Ruta)
For Each SubCarpeta In Carpeta.subfolders
For Each SubSubCarpeta In SubCarpeta.subfolder
For Each Archivo In SubSubCarpeta
If LCase(Right(Archivo, 4)) = ".pdf" Then
fs.movefile Archivo, Destino
End If
Next
Next
Next
parece que te falta una S en el nombre de la colección Subfolders
For Each SubSubCarpeta In SubCarpeta.subfolderS
------
Ya sé Excel, pero necesito más.