Vbs備份指定文件到指定目錄并且以日期重命名的實現(xiàn)代碼
說到備份,相信大家都會想到的第一個方法就是通過windows系統(tǒng)自帶的window backup功能進行數(shù)據(jù)備份。后來微軟又出了system centere產(chǎn)品后,就出現(xiàn)了一個新的備份產(chǎn)品---system centere data backup manager(DPM)。這些功能備份比較大的數(shù)據(jù)還可以,但是對于小文件的備份有點浪費了,因為有的時候由于工作需要備份幾個重要的文件(配置文件),不需要全備,所以說呢,很多備份軟件有點浪費,對于小文件的備份來說不是非常方便。以上僅僅是個人的想法。我算是一個比較愛挑剔的人,能用簡單的方法實現(xiàn)的工作絕對不會搞太復(fù)雜。
公司使用的是ibm lotus產(chǎn)品做為郵件系統(tǒng)。我們大家都知道,lotus郵件產(chǎn)品數(shù)據(jù)庫都是獨立的文件數(shù)據(jù)庫,都是以.nsf結(jié)尾的。還有就是一個.ntf的數(shù)據(jù)庫模板。服務(wù)定時通過對應(yīng)的.ntf模板文件對.nsf數(shù)據(jù)庫進行設(shè)計刷新。在此先不說這么多了。我們主要還是說一下遇到的問題吧~上周同事發(fā)現(xiàn)之前刪除的一些domino服務(wù)器配置怎么又恢復(fù)了。當然我沒有無聊的去做一些還原。然后就通過近期的數(shù)據(jù)備份進行對比,然后再次刪除,領(lǐng)導(dǎo)了跟我說,讓我定期備份lotus的配置數(shù)據(jù)庫。所以就想通過vbs程序來備份。我們都知道,domino服務(wù)器配置數(shù)據(jù)庫為names.nsf。只要對names.nsf數(shù)據(jù)庫進行備份的話,domino服務(wù)器的配置是不會丟的。出了問題覆蓋恢復(fù)就行,還有就是一個,備份一次一定保留之前的備份的歷史記錄,通過本地的備份日期及時間來重命名,對此問題的解決方法見下:
代碼:
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盤下的目的路徑
執(zhí)行一次在該文件夾下新建一個文件夾,然后將拷貝的文件存入該文件。然后以日期命名
文件存入
每天執(zhí)行一次,執(zhí)行一次就在該文件夾下新建一個文件夾,然后以日期命名
然后通過系統(tǒng)自帶的計劃任務(wù)進行程序運行: taskschd.msc
打開計劃任務(wù)后,我們創(chuàng)建任務(wù)
定義計劃任務(wù)命名:及運行方式:不管用戶是否登陸都要運行
程序運行計劃,每天23.54執(zhí)行一次。勾選---已啟用選項
計劃任務(wù)已創(chuàng)建完成
創(chuàng)建任務(wù)操作。---啟動程序---然后我們選擇定義好的腳本文件
定義計劃操作完成
我們右擊開始運行一次。進行測試。
執(zhí)行效果,第二天的指定時間再次運行:
好了這篇文章就介紹到這
版權(quán)聲明:本站文章來源標注為YINGSOO的內(nèi)容版權(quán)均為本站所有,歡迎引用、轉(zhuǎn)載,請保持原文完整并注明來源及原文鏈接。禁止復(fù)制或仿造本網(wǎng)站,禁止在非www.sddonglingsh.com所屬的服務(wù)器上建立鏡像,否則將依法追究法律責任。本站部分內(nèi)容來源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來,僅供學(xué)習參考,不代表本站立場,如有內(nèi)容涉嫌侵權(quán),請聯(lián)系alex-e#qq.com處理。