Dosya Kopyalama ve Yeniden Adlandırma VBScript

Question

Bir dosyayı bir tarihin bir kopyasını temel alarak başka bir klasöre taşımam gerekir.

dosya yapısı şöyledir:

Kaynak: C: \ kaynak dosyası her zaman arkasında 1 gündür \ filename.txt

dökümü \ network_location \ \ Filename_09-11-2012.txt Hedef klasör . Dosyayı kopyalarken yeniden adlandırmak istiyorum.

ben kullanmaya çalışıyorum kodu şöyledir:

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

You

ederiz

Answer 1

Böyle FileSystemObject olan bir dosya kopyalama ve yeniden adlandırabilirsiniz:

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"