Kopieren und Umbenennen von Dateien VBScript

Question

Ich muss eine Datei mit einem Namen basierend auf einem Datum in einen anderen Ordner verschieben.

Die Dateistruktur ist:

Quelle: \ network_location \ Folder \ Filename_09-11-2012.txt Ziel: C: \ Dump \ Filename.txt

Die Quelldatei ist immer 1 Tag hinter . Ich möchte die Datei beim Kopieren umbenennen.

Der Code, den ich zu verwenden Ich versuche ist:

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

Sie

Vielen

Answer 1

Sie können eine Datei mit dem FileSystemObject wie diese kopieren und umbenennen:

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"