国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

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

2020-07-26 11:20:01
字體:
來源:轉載
供稿:網友

說到備份,相信大家都會想到的第一個方法就是通過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) Thenfso.CreateFolder desfilepathfso.copyfile sourcefilepath,desfilepathEnd If

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

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

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

文件存入

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

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

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

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

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

計劃任務已創建完成

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

定義計劃操作完成

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

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

好了這篇文章就介紹到這

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 阿瓦提县| 叶城县| 宿松县| 通辽市| 安宁市| 鹿邑县| 江西省| 丘北县| 建阳市| 阜宁县| 上高县| 武穴市| 华坪县| 东乡| 闻喜县| 南京市| 凉城县| 丘北县| 抚州市| 盈江县| 横山县| 平顶山市| 泸溪县| 明溪县| 石棉县| 同心县| 固镇县| 江安县| 囊谦县| 铜山县| 和静县| 舒兰市| 高邑县| 贡觉县| 信阳市| 抚顺市| 威海市| 镇巴县| 镇巴县| 宜君县| 泌阳县|