How to realize regular automatic backup of folders by vbs
Editor to share with you vbs how to achieve regular automatic backup of folders, I believe most people do not know much about it, so share this article for your reference, I hope you can learn a lot after reading this article, let's go to know it!
The code is as follows:
'/ * =
'* Intro automatically backs up the folder to a new directory named after time, sets it up and adds it to the startup item. As soon as the machine program is started, it will run automatically, accounting for no account for system resources.
'* FileName AutoBackUpFolder.VBS
'* 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 'test, backing up files to a specified folder every 5 seconds
Loop
Function Run ()
BackUpFolder "D:\ all systems being designed by the company", "E:\ software automatic backup"
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
The above is all the contents of the article "how to achieve regular automatic backup of folders in vbs". Thank you for reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!
