项目文件自动备份及删除

projects_backup.vbs

=============================

dim oShell,dateFile,cmd
dateFile=cstr(year(now))&right("00" & cstr(month(now)),2)&right("00" & cstr(day(now)),2)
cmd="cmd /c @xcopy E:/projects E:/backup/projects/autoback/"&dateFile&" /s/e/r/i"
set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run cmd,0
set oShell = Nothing

projects_delbackup.vbs

=============================

'60天前的自动del
dim oShell,thedate,cmd,saveDateNum
saveDateNum=-60
set oShell = WScript.CreateObject ("WSCript.shell")
for i=-14 to -1
thedate=dateadd("d",saveDateNum+i,now)
thedate=cstr(year(thedate))&right("00" & cstr(month(thedate)),2)&right("00" & cstr(day(thedate)),2)
on error resume next
cmd="cmd /c @rd E:/backup/projects/autoback/"&thedate&"/ /q/s"
oShell.run cmd,0
next
set oShell = Nothing