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