文件夹定时自动备份 AutoBackUpFolder.vbs

'/*=========================================================================
' * intro 定时自动备份文件夹到一个以时间命名的新目录，设置好后加到启动项里，只要一启动机器程序就会自动运行，占系统资源可以不计
' * filename autobackupfolder.vbs
' * author yongfa365
' * version v1.0
' * email yongfa365[at]qq.com
' * madetime 2009-05-14 17:18:33
' * lastmodify 2009-05-14 17:18:33
' *==========================================================================*/
do while 1
run()
' wscript.sleep 1000*60*60*2
wscript.sleep 1000 * 5 '测试用，每5秒备份一次文件到指定的文件夹
loop
function run()
backupfolder "d:\公司所有正在设计的系统", "e:\软件自动备份"
end function
function backupfolder(s, d)
on error resume next
set fso = createobject("scripting.filesystemobject")
fso.createfolder d
fso.copyfolder s, d & "\" & getdatefolder
end function
function getdatefolder()
getdatefolder = year(now) & "-" & right("0" & month(now), 2) & "-" & right("0" & day(now), 2) & "-" & right("0" & hour(now), 2) & "-" & right("0" & minute(now), 2) & "-" & right("0" & second(now), 2)
end function