Copiar Carpetas

Deseo copiar carpetas y ni siquiera logro copiar archivos...

La instrucción siguiente no me funciona:
FileCopy "C:\Finales\Marzo\*.xls", "C:\Iniciales\Abril\"

Para esta otra me falta algo (ignoro qué debo poner en FileSystemObject):
FileSystemObject.CopyFile "C:\Finales\Marzo\*.xls", "C:\Iniciales\Abril\"

Lo que me me han sugerido tampoco resulta:
Ruta1 = "C:\Finales\Marzo\"
Ruta2 = "C:\Iniciales\\Abril\"
Archivo = "*.XLS"
FileCopy Ruta1 & Archivo, Ruta2 & Archivo
End Sub

Deseo copiar todos los archivos -xls que tengo en una carpeta, a otra.

Creo que debes definir primero el objeto FileSystemObject. Prueba con algo
asi, que usa el metodo CopyFolder en lugar de CopyFile

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFolder "C:\Finales\Marzo", "C:\Iniciales\Abril"

Espero que te sirva,
Miguel.

"lbenaventea" wrote:

> Deseo copiar carpetas y ni siquiera logro copiar archivos...
>
> La instrucción siguiente no me funciona:
> FileCopy "C:\Finales\Marzo\*.xls", "C:\Iniciales\Abril\"
>
> Para esta otra me falta algo (ignoro qué debo poner en FileSystemObject):
> FileSystemObject.CopyFile "C:\Finales\Marzo\*.xls", "C:\Iniciales\Abril\"
>
> Lo que me me han sugerido tampoco resulta:
> Ruta1 = "C:\Finales\Marzo\"
> Ruta2 = "C:\Iniciales\\Abril\"
> Archivo = "*.XLS"
> FileCopy Ruta1 & Archivo, Ruta2 & Archivo
> End Sub
>
> Deseo copiar todos los archivos -xls que tengo en una carpeta, a otra.
>
>
>
>
>