用vbs實(shí)現(xiàn)的簡(jiǎn)單的服務(wù)器文件備份辦法壓縮文件名自動(dòng)按日期命名
更新時(shí)間：2007年12月31日 23:12:32 作者：
用vbs實(shí)現(xiàn)的簡(jiǎn)單的服務(wù)器文件備份辦法壓縮文件名自動(dòng)按日期命名
簡(jiǎn)單的服務(wù)器文件備份辦法壓縮文件名自動(dòng)按日期命名
dim FileName,WshShell,fs,MyCommandFileName=cstr(now)+".RAR"
MyCommand="rar a "+FileName+" 要壓縮的文件名或目錄名"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fs=CreateObject("Scripting.FileSystemObject")
if fs.fileExists(FileName) then
fs.DeleteFile FileName,true
end
if WshShell.run MyCommand
將以上文件另存為一個(gè) .VBS添加計(jì)劃任務(wù)按你說(shuō)需要的時(shí)間運(yùn)行.vbs 如每個(gè)禮拜一次
或每個(gè)月一次等計(jì)劃任務(wù)會(huì)自動(dòng)壓縮你指定的目錄.生成一個(gè)日期文件名.rar
dim FileName,WshShell,fs,MyCommandFileName=cstr(now)+".RAR"
MyCommand="rar a "+FileName+" 要壓縮的文件名或目錄名"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fs=CreateObject("Scripting.FileSystemObject")
if fs.fileExists(FileName) then
fs.DeleteFile FileName,true
end
if WshShell.run MyCommand
將以上文件另存為一個(gè) .VBS添加計(jì)劃任務(wù)按你說(shuō)需要的時(shí)間運(yùn)行.vbs 如每個(gè)禮拜一次
或每個(gè)月一次等計(jì)劃任務(wù)會(huì)自動(dòng)壓縮你指定的目錄.生成一個(gè)日期文件名.rar
相關(guān)文章
VBS偽造HTTP-REFERER的實(shí)現(xiàn)方法
最近用VBS模擬POST提交表單，發(fā)現(xiàn)遇到檢測(cè)Referer的頁(yè)面就不管用了。</P><P>2011-02-02
使用VBS訪問(wèn)外部文本文件一些方法和腳本實(shí)例代碼
下面給出幾個(gè)利用VBScript訪問(wèn)外部文件的例子，方便學(xué)習(xí)使用vbs操作外部文本文件的朋友2013-01-01
Ｎ年前，那時(shí)估計(jì)知道%5c暴庫(kù)的人還很少。這個(gè)vbs腳本應(yīng)當(dāng)是Lilo寫(xiě)的,應(yīng)當(dāng)深深表達(dá)一下敬意……2008-02-02
VBScript Enun Remote CMD Shell代碼
Enun Remote CMDShell，喜歡玩cmdshell的朋友可以參考下2013-07-07
腳本編程 4 驅(qū)動(dòng)器...2007-02-02
VBS教程：運(yùn)算符-Imp 運(yùn)算符...2006-11-11
代碼有點(diǎn)亂啊，大家可以自己整理下啊。2009-12-12
今天我們學(xué)習(xí)基礎(chǔ)篇的最后一個(gè)部分:自定義函數(shù)和過(guò)程. 我們每天都在和函數(shù)打交道, inputbox()是函數(shù), msgbox()是函數(shù), int()也是函數(shù)...這些函數(shù)都是系統(tǒng)內(nèi)建的, 我們只能用不能改. 今天我就教大家怎樣自己制作一個(gè)函數(shù)2007-07-07
用vbs實(shí)現(xiàn)將剪切板的unix格式的內(nèi)容處理成pc格式的代碼
用vbs實(shí)現(xiàn)將剪切板的unix格式的內(nèi)容處理成pc格式的代碼...2007-10-10
用vbs實(shí)現(xiàn)刪除名稱(chēng)中有撇號(hào)的文件夾
用vbs實(shí)現(xiàn)刪除名稱(chēng)中有撇號(hào)的文件夾...2007-03-03