文件夹定时自动备份
2017-05-09 00:00
176 查看
文件夹定时自动备份
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
本文来源于深圳第一眼便民中心www.szdyy.com,原文地址:http://szdyy.com/default/ce56d3d6fa748ab6.html
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
本文来源于深圳第一眼便民中心www.szdyy.com,原文地址:http://szdyy.com/default/ce56d3d6fa748ab6.html
相关文章推荐
- 文件夹定时自动备份
- 文件夹定时自动备份
- Linux自动定时备份文件夹Python脚本
- mysql 自动定时备份
- SQL Server 数据库定时自动备份
- Linux VPS自动定时备份网站文件和MYSQL数据库到FTP空间(LNMP)
- PostgreSQL定时自动备份
- 在Windows环境下使用MySQL:自动定时备份
- Windows 2008 R2 做RMAN定时自动备份;日期格式影响日志文件生成
- SQL自动定时备份 并加密压缩自动下载的方法
- Mysql数据库定时任务自动备份
- MySQL数据库定时自动备份脚本
- windows下定期自动备份本地文件(文件夹)
- ORACLE10G每天自动定时备份
- Mysql学习总结(44)——Linux下如何实现mysql数据库每天自动备份定时备份
- sqlserver08定时自动备份
- sqlserver2000定时自动备份的实现
- sql server数据库定时自动备份
- shell脚本复制文件夹内容到另外的文件夹,如果存在则自动备份