macro copiar archivos en subcarpetas

2 envíos / 0 nuevos
Último envío
diego
Imagen de diego
Offline
última acción: Hace 3 años 1 mes
alta: 05/09/2018 - 22:54
Puntos: 25
macro copiar archivos en subcarpetas

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

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 56 mins 48 segs
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10995
parece que te falta una S en

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.