Copiar archivos

Hola lbenaventea,

Por ejemplo asi:

' Para crear copia del archivo
Sub CopiarArchivo()
Ruta1 = "C:\temp\"
Ruta2 = "D:\perm\"
Archivo = "Libro1.xls"
FileCopy Ruta1 & Archivo, Ruta2 & Archivo
End Sub

' Para mover el archivo
Sub MoverArchivo()
Ruta1 = "C:\temp\"
Ruta2 = "D:\perm\"
Archivo = "Libro1.xls"
FileCopy Ruta1 & Archivo, Ruta2 & Archivo
Kill Ruta1 & Archivo
End Sub


Saludos,
KL


"lbenaventea" wrote in message news:

Deseo saber cómo puedo copiar un archivo desde una carpeta a otra desde una
macro de Excel (tal como se copian desde Windows) . Ocurre que mi solución
actual -abrir un archivo y guardarlo con su nuevo nombre- es sumamente lenta
para archivos pesados (entre otras causas, porque el Excel los recalcula
antes de volver a guardarlos).