VBA将文件从一个目录复制到另一个目录

Question

所以我有一个访问文件,我经常需要将其复制到另一个目录,替换最后一个版本.我想使用Excel宏来实现这一点,并且还希望在此过程中重命名该文件.

例如

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

有这么简单的方法吗？

Answer 1

如果您选择较少的选项,这种方法会更容易:

FileCopy source, destination

Answer 2

在Scripting.FileSystemObject中使用适当的方法.然后你的代码将更容易移植到VBScript和VB.net.为了帮助您入门,您需要包括:

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

然后你可以使用

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

其中source和destination是文件的全名(包括路径).

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