renombrar - VBA para copiar un archivo de un directorio a otro

macro para renombrar archivos

Question

Así que tengo un archivo de acceso que regularmente necesito copiar a otro directorio, reemplazando la última versión. Me gustaría utilizar una macro de Excel para lograr esto, y también me gustaría cambiar el nombre del archivo en el proceso.

P.ej

   fileName = "X:/Database/oldName.accdb"
   copyDestination = "Y:/dbstore/"
   newName = "newName.accdb"

¿Hay una manera fácil de hacer esto?

Answer 1

Este método es aún más fácil si está bien con menos opciones:

FileCopy source, destination

Answer 2

Use los métodos apropiados en Scripting.FileSystemObject. Entonces su código será más portátil para VBScript y VB.net. Para comenzar, deberá incluir:

Dim fso As Object
Set fso = VBA.CreateObject("Scripting.FileSystemObject")

Entonces podrías usar

Call fso.CopyFile(source, destination[, overwrite] )

donde fuente y destino son los nombres completos (incluidas las rutas) del archivo.

Ver http://msdn.microsoft.com/en-us/library/aa711216(v=vs.71).aspx