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

Question

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

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

有没有简单的方法可以做到这一点？

Answer 1

在 Scripting.FileSystemObject 中使用适当的方法。那么您的代码将更容易移植到 VBScript 和 VB.net。为了开始使用，您需要包括:

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

然后你可以使用

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

其中源和目标是文件的全名(包括路径)。

参见https://learn.microsoft.com/en-us/office/vba/Language/Reference/user-interface-help/copyfile-method