复制和重命名文件VBScript

我需要将一个基于日期的文件移到另一个文件夹

文件结构为：
来源：

\\network\u location\folder\Filename\u 09-11-2012.txt

目的地：

C:\Dump\Filename.txt

源文件总是落后1天。我希望在复制文件时重命名该文件。
我尝试使用的代码是：

Sub Copy_And_Rename()
    Name "\\network_location\folder\Filename_"+Month(Now())+"-"+Day(Now()-1)+"-"+Year(Now())+".txt" As "C:\Dump\Filename.txt"
End Sub

---

您可以使用

FileSystemObject

复制和重命名文件，如下所示：

Set objFSO = CreateObject("Scripting.FileSystemObject")
' First parameter: original location\file
' Second parameter: new location\file
objFSO.CopyFile "C:\Test\folder1\name1.txt", "C:\Test\folder2\name2.txt"

---

复制和重命名文件的代码

sourceFilePath = "C:\filePath\source.xlsx"
destinationFilePath = "C:\filePath\destination.xlsx"

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile sourceFilePath, destinationFilePath

---

为什么不改用文件脚本对象呢？第三个参数：覆盖。默认设置为True。如果此参数设置为False，并且目标文件allready存在，则将发生错误。