Sao chép và Đổi tên Tệp VBScript

Question

Tôi cần di chuyển tệp có tên dựa trên ngày tháng sang một thư mục khác.

Cấu trúc tập tin là:

Nguồn: \ network_location \ thư mục \ Filename_09-11-2012.txt Điểm đến: C: \ Dump \ filename.txt

Các tập tin nguồn luôn là 1 ngày sau . Tôi đang tìm cách đổi tên tệp trong khi sao chép tệp.

Mã Tôi cố gắng để sử dụng là:

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

cảm ơn

Answer 1

Bạn có thể sao chép và đổi tên một tập tin với FileSystemObject như thế này:

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"