复制文件（夹）到指定目录下，并按日期进行重命名
原创
©著作权归作者所有：来自51CTO博客作者寻觅的狮子的原创作品，请联系作者获取转载授权，否则将追究法律责任
最近需要将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()
