复制并重命名文件VBScript

Question

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

文件结构是:

来源:\network_location\folder\Filename_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

谢谢

Answer 1

您可以使用以下方法复制和重命名文件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"