Copia e rinomina file VBScript

Question

Ho bisogno di spostare un file con un nome basato su una data in un'altra cartella.

La struttura dei file è:

Fonte: \ network_location \ cartella \ Filename_09-11-2012.txt Destinazione: C: \ Dump \ Nomefile.txt

Il file sorgente è sempre 1 giornata alle spalle . Sto cercando di rinominare il file mentre lo copio.

Il codice che sto cercando di utilizzare è:

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

Thank You

Answer 1

È possibile copiare e rinominare un file con il FileSystemObject in questo modo:

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"