复制文件（夹）到指定目录下，并按日期进行重命名

最近需要将hudson自动编译后的war包，copy到tomcat下webapps下，供测试人员访问，而且版本用日期命名，如20111212，用于区别不同的版本，便于追溯。

'*********************************************************

' 目的：copy 指定文件到目标文件目录下

' 并重名名rename，根据当前日期进行重命名。

' 输入：源文件"I:\webapp.war"，目标路径"h:\"。

' 返回：无。

'*********************************************************

Function CpReFileName()

set fso=wscript.createobject("scripting.filesystemobject")

'*********************************************************

' 目的：copy 指定文件到目标文件目录下。

' 输入：源文件"I:\webapp.war"，目标路径"h:\"。

' 返回：无。

'*********************************************************

Dim FSO,d

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.Copyfile "I:\webapp.war","h:\"

'*********************************************************

'获得当前日期，按年、月、日

'*********************************************************

Dim MyTime, MyHour

' MyTime = Now

MsgBox MyTime

MyYear = Year(MyTime)

' MsgBox MyYear

MyMonth = Month(MyTime)

' MsgBox MyMonth

MyDay = Day(MyTime)

' MsgBox MyDay

MyHour = Hour(MyTime)

' MsgBox myhour

'*********************************************************

'定义源文件（夹）与目标文件（夹）的名称

'*********************************************************

OldFolderName1="filefodername"

' newFolderName1="filefodername"

newFolderName1=MyYear&MyMonth&MyDay

OldFileName1 = "webapp.war"

newFileName1 = MyYear&MyMonth&MyDay&".war"

OldFileName2 = "oldfilename2.lnk"

newFileName2 = "newfilename2.lnk"

originalpath="H:"

newpath="H:"

'*********************************************************

'重命名文件夹

'*********************************************************

if (fso.folderexists(originalpath & "\" & OldFolderName1)) then

Set fsoGetFolder = fso.GetFolder(originalpath & "\" & OldFolderName1)

fsoGetFolder.Name = newFolderName1

End If

'*********************************************************

'重命名文件

'*********************************************************

if fso.fileexists(newpath&"\"&OldFileName1 ) then

set f=fso.getfile(newpath&"\"&OldFileName1)

f.name=newFileName1

end If

End Function

Call CpReFileName()