Shulou(Shulou.com)06/03 Report--

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!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.