定时自动备份文件夹代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】定时自动备份文件夹

作者:Dezai.CN / 发布于2011/8/22/ 1085

<div>'/*=========================================================================
' * Intro 定时自动备份文件夹到一个以时间命名的新目录，设置好后加到启动项里，只要一启动机器程序就会自动运行，占系统资源可以不计
' * FileName AutoBackUpFolder.VBS
' * Author yongfa365
' * Version v1.0
' * WEB <a href="http://www.yongfa365.com">http://www.yongfa365.com</a>
' * Email yongfa365[at]qq.com
' * FirstWrite <a href="http://www.yongfa365.com/Item/AutoBackUpFolder.vbs.html">http://www.yongfa365.com/Item/AutoBackUpFolder.vbs.html</a>
' * MadeTime 2009-05-14 17:18:33
' * LastModify 2009-05-14 17:18:33
' *==========================================================================*/</div>
<div>
Do While 1
 Run()
 ' WScript.Sleep 1000*60*60*2
 WScript.Sleep 1000 * 5 '测试用，每5秒备份一次文件到指定的文件夹
Loop</div>
<div>Function Run()
 BackUpFolder "D:\公司所有正在设计的系统", "E:\软件自动备份"
End Function</div>
<div>Function BackUpFolder(S, D)
 On Error Resume Next
 Set FSO = CreateObject("Scripting.FileSystemObject")
 FSO.CreateFolder D
 FSO.CopyFolder S, D & "\" & GetDateFolder
 
End Function</div>
<div>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
</div>

试试其它关键字

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)