Vbs備份指定文件到指定目錄并且以日期重命名的實現代碼

 更新時間:2019-09-29 10:00:27   作者:佚名   我要評論(0)

說到備份,相信大家都會想到的第一個方法就是通過windows系統自帶的window backup功能進行數據備份。后來微軟又出了system centere產品后,就出現了一個新的備

說到備份,相信大家都會想到的第一個方法就是通過windows系統自帶的window backup功能進行數據備份。后來微軟又出了system centere產品后,就出現了一個新的備份產品---system centere data backup manager(DPM)。這些功能備份比較大的數據還可以,但是對于小文件的備份有點浪費了,因為有的時候由于工作需要備份幾個重要的文件(配置文件),不需要全備,所以說呢,很多備份軟件有點浪費,對于小文件的備份來說不是非常方便。以上僅僅是個人的想法。我算是一個比較愛挑剔的人,能用簡單的方法實現的工作絕對不會搞太復雜。

公司使用的是ibm lotus產品做為郵件系統。我們大家都知道,lotus郵件產品數據庫都是獨立的文件數據庫,都是以.nsf結尾的。還有就是一個.ntf的數據庫模板。服務定時通過對應的.ntf模板文件對.nsf數據庫進行設計刷新。在此先不說這么多了。我們主要還是說一下遇到的問題吧~上周同事發現之前刪除的一些domino服務器配置怎么又恢復了。當然我沒有無聊的去做一些還原。然后就通過近期的數據備份進行對比,然后再次刪除,領導了跟我說,讓我定期備份lotus的配置數據庫。所以就想通過vbs程序來備份。我們都知道,domino服務器配置數據庫為names.nsf。只要對names.nsf數據庫進行備份的話,domino服務器的配置是不會丟的。出了問題覆蓋恢復就行,還有就是一個,備份一次一定保留之前的備份的歷史記錄,通過本地的備份日期及時間來重命名,對此問題的解決方法見下:

代碼:

sourcefilepath="c:\names\names.nsf"
desfilepath="d:\name_backup\Name"&""&Year(date)&-Month(date)&-Day(date)&" "&Hour(time)&-Minute(time)&"\"
Set fso=CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(desfilepath) Then
fso.CreateFolder desfilepath
fso.copyfile sourcefilepath,desfilepath
End If

模擬將c盤下的names文件夾下的names.nsf拷貝到目的目錄

將c盤下的names.nsf文件拷貝到d盤下的目的路徑

執行一次在該文件夾下新建一個文件夾,然后將拷貝的文件存入該文件。然后以日期命名

文件存入

每天執行一次,執行一次就在該文件夾下新建一個文件夾,然后以日期命名

然后通過系統自帶的計劃任務進行程序運行: taskschd.msc

打開計劃任務后,我們創建任務

定義計劃任務命名:及運行方式:不管用戶是否登陸都要運行

程序運行計劃,每天23.54執行一次。勾選---已啟用選項

計劃任務已創建完成

創建任務操作。---啟動程序---然后我們選擇定義好的腳本文件

定義計劃操作完成

我們右擊開始運行一次。進行測試。

執行效果,第二天的指定時間再次運行:

好了這篇文章就介紹到這

相關文章

最新評論

亿宝娱乐黑钱