当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 文件夹定时自动备份 AutoBackUpFolder.vbs

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

2017年12月08日  | 移动技术网IT编程  | 我要评论

龟龄集,冯馨瑶,以爱之名 李维嘉

复制代码 代码如下:

'/*=========================================================================
' * 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

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网