Vbs備份指定文件到指定目錄并且以日期重命名的實(shí)現(xiàn)代碼
說(shuō)到備份,相信大家都會(huì)想到的第一個(gè)方法就是通過(guò)windows系統(tǒng)自帶的window backup功能進(jìn)行數(shù)據(jù)備份。后來(lái)微軟又出了system centere產(chǎn)品后,就出現(xiàn)了一個(gè)新的備份產(chǎn)品---system centere data backup manager(DPM)。這些功能備份比較大的數(shù)據(jù)還可以,但是對(duì)于小文件的備份有點(diǎn)浪費(fèi)了,因?yàn)橛械臅r(shí)候由于工作需要備份幾個(gè)重要的文件(配置文件),不需要全備,所以說(shuō)呢,很多備份軟件有點(diǎn)浪費(fèi),對(duì)于小文件的備份來(lái)說(shuō)不是非常方便。以上僅僅是個(gè)人的想法。我算是一個(gè)比較愛(ài)挑剔的人,能用簡(jiǎn)單的方法實(shí)現(xiàn)的工作絕對(duì)不會(huì)搞太復(fù)雜。
公司使用的是ibm lotus產(chǎn)品做為郵件系統(tǒng)。我們大家都知道,lotus郵件產(chǎn)品數(shù)據(jù)庫(kù)都是獨(dú)立的文件數(shù)據(jù)庫(kù),都是以.nsf結(jié)尾的。還有就是一個(gè).ntf的數(shù)據(jù)庫(kù)模板。服務(wù)定時(shí)通過(guò)對(duì)應(yīng)的.ntf模板文件對(duì).nsf數(shù)據(jù)庫(kù)進(jìn)行設(shè)計(jì)刷新。在此先不說(shuō)這么多了。我們主要還是說(shuō)一下遇到的問(wèn)題吧~上周同事發(fā)現(xiàn)之前刪除的一些domino服務(wù)器配置怎么又恢復(fù)了。當(dāng)然我沒(méi)有無(wú)聊的去做一些還原。然后就通過(guò)近期的數(shù)據(jù)備份進(jìn)行對(duì)比,然后再次刪除,領(lǐng)導(dǎo)了跟我說(shuō),讓我定期備份lotus的配置數(shù)據(jù)庫(kù)。所以就想通過(guò)vbs程序來(lái)備份。我們都知道,domino服務(wù)器配置數(shù)據(jù)庫(kù)為names.nsf。只要對(duì)names.nsf數(shù)據(jù)庫(kù)進(jìn)行備份的話,domino服務(wù)器的配置是不會(huì)丟的。出了問(wèn)題覆蓋恢復(fù)就行,還有就是一個(gè),備份一次一定保留之前的備份的歷史記錄,通過(guò)本地的備份日期及時(shí)間來(lái)重命名,對(duì)此問(wèn)題的解決方法見(jiàn)下:
代碼:
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盤(pán)下的names文件夾下的names.nsf拷貝到目的目錄
將c盤(pán)下的names.nsf文件拷貝到d盤(pán)下的目的路徑
執(zhí)行一次在該文件夾下新建一個(gè)文件夾,然后將拷貝的文件存入該文件。然后以日期命名
文件存入
每天執(zhí)行一次,執(zhí)行一次就在該文件夾下新建一個(gè)文件夾,然后以日期命名
然后通過(guò)系統(tǒng)自帶的計(jì)劃任務(wù)進(jìn)行程序運(yùn)行: taskschd.msc
打開(kāi)計(jì)劃任務(wù)后,我們創(chuàng)建任務(wù)
定義計(jì)劃任務(wù)命名:及運(yùn)行方式:不管用戶是否登陸都要運(yùn)行
程序運(yùn)行計(jì)劃,每天23.54執(zhí)行一次。勾選---已啟用選項(xiàng)
計(jì)劃任務(wù)已創(chuàng)建完成
創(chuàng)建任務(wù)操作。---啟動(dòng)程序---然后我們選擇定義好的腳本文件
定義計(jì)劃操作完成
我們右擊開(kāi)始運(yùn)行一次。進(jìn)行測(cè)試。
執(zhí)行效果,第二天的指定時(shí)間再次運(yùn)行:
好了這篇文章就介紹到這
上一篇:VBS日期(時(shí)間)格式化函數(shù)代碼
欄 目:vb
本文標(biāo)題:Vbs備份指定文件到指定目錄并且以日期重命名的實(shí)現(xiàn)代碼
本文地址:http://mengdiqiu.com.cn/a1/vb/7085.html
您可能感興趣的文章
- 01-10下載文件到本地運(yùn)行的vbs
- 01-10VBS中的正則表達(dá)式的用法大全 <font color=red>原創(chuàng)&
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10VBScript教程 第十一課深入VBScript
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript語(yǔ)法速查及實(shí)例說(shuō)明
- 01-10VBS中Select CASE的其它用法
- 01-10VBScript教程 第七課使用條件語(yǔ)句
- 01-10vbscript 可以按引用傳遞參數(shù)嗎?
- 01-10VBScript教程 第二課在HTML頁(yè)面中添加VBscript代碼


閱讀排行
- 1C語(yǔ)言 while語(yǔ)句的用法詳解
- 2java 實(shí)現(xiàn)簡(jiǎn)單圣誕樹(shù)的示例代碼(圣誕
- 3利用C語(yǔ)言實(shí)現(xiàn)“百馬百擔(dān)”問(wèn)題方法
- 4C語(yǔ)言中計(jì)算正弦的相關(guān)函數(shù)總結(jié)
- 5c語(yǔ)言計(jì)算三角形面積代碼
- 6什么是 WSH(腳本宿主)的詳細(xì)解釋
- 7C++ 中隨機(jī)函數(shù)random函數(shù)的使用方法
- 8正則表達(dá)式匹配各種特殊字符
- 9C語(yǔ)言十進(jìn)制轉(zhuǎn)二進(jìn)制代碼實(shí)例
- 10C語(yǔ)言查找數(shù)組里數(shù)字重復(fù)次數(shù)的方法
本欄相關(guān)
- 01-10下載文件到本地運(yùn)行的vbs
- 01-10飄葉千夫指源代碼,又稱qq刷屏器
- 01-10SendKeys參考文檔
- 01-10什么是一個(gè)高效的軟件
- 01-10VBS中的正則表達(dá)式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一課深入VBScript
- 01-10VBScript語(yǔ)法速查及實(shí)例說(shuō)明
隨機(jī)閱讀
- 01-10SublimeText編譯C開(kāi)發(fā)環(huán)境設(shè)置
- 01-10delphi制作wav文件的方法
- 08-05DEDE織夢(mèng)data目錄下的sessions文件夾有什
- 04-02jquery與jsp,用jquery
- 08-05織夢(mèng)dedecms什么時(shí)候用欄目交叉功能?
- 08-05dedecms(織夢(mèng))副欄目數(shù)量限制代碼修改
- 01-10C#中split用法實(shí)例總結(jié)
- 01-11Mac OSX 打開(kāi)原生自帶讀寫(xiě)NTFS功能(圖文
- 01-11ajax實(shí)現(xiàn)頁(yè)面的局部加載
- 01-10使用C語(yǔ)言求解撲克牌的順子及n個(gè)骰子