파일 복사 및 이름 바꾸기 VBScript

Question

날짜 기반의 이름으로 파일을 다른 폴더로 이동해야합니다.

파일 구조는 다음과 같습니다

자료 : C : \ 소스 파일은 항상 뒤에 1 일입니다 \ 파일 이름 .txt

덤프 \ network_location \ \ Filename_09-11-2012.txt 대상 폴더 . 파일을 복사하는 동안 파일 이름을 변경하려고합니다.

내가 사용하려고 코드는 다음과 같습니다

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

당신에게

감사

Answer 1

이 같은 FileSystemObject로 파일을 복사하고 이름을 바꿀 수 있습니다 :

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"