複製並重命名文件VBScript

Question

我需要將名稱基於日期的文件移動到另一個文件夾。

文件結構是：

來源：\ network_location \文件夾\ Filename_09-11-2012.txt 目的地：C：\轉儲\則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"