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