Copiar y renombrar archivo VBScript

Question

Necesito mover un archivo con un nombre basado en una fecha a otra carpeta.

La estructura de archivos es:

Fuente: \ network_location \ carpeta \ Filename_09-11-2012.txt Destino: C: \ Dump \ filename.txt

El archivo de origen es siempre 1 día de retraso . Estoy buscando cambiar el nombre del archivo mientras lo copio.

El código que estoy tratando de usar es:

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

Gracias

Answer 1

Puede copiar y cambiar el nombre de un archivo con el FileSystemObject así:

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"