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

Answer 2

如果您接受较少的选项，此方法会更简单：

FileCopy source, destination

Answer 3

子 FSOcopyAllFiles() 调暗 FSO 作为新的 FileSystemObject 将 FromPath 变暗为字符串 将 ToPath 调暗为字符串 将 FileInFromFolder 变暗为对象

FromPath = "C:\Users\Windows\Desktop\for email\"
ToPath = "J:\Auchan ds test 2024\For print\"

Set FSO = CreateObject("Scripting.FileSystemObject")

For Each FileInFromFolder In FSO.GetFolder(FromPath).Files
    FileInFromFolder.Copy ToPath
Next FileInFromFolder

结束子