VBScript壓縮單個(gè)文件為zip格式
更新時(shí)間：2012年01月23日 19:58:25 作者：
將單個(gè)文件壓縮為zip格式的vbs代碼，需要的朋友可以參考下
復(fù)制代碼 代碼如下:
On Error Resume Next
Dim fso,fp,oApp,targetfile
Set fso=CreateObject("Scripting.FileSystemObject")
targetfile="D:\tmp.zip"
Set fp=fso.OpenTextFile(targetfile,2,True)
fp.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18,0)
fp.Close
Set oApp=CreateObject("Shell.Application")
Set fso=Nothing
Err.Clear
oApp.Namespace(targetfile).CopyHere "C:\1.txt"
WScript.Sleep 1000
相關(guān)文章
關(guān)于腳本調(diào)用外部對(duì)像和類型庫
主要是用于flash網(wǎng)頁木馬調(diào)用方法，是flash的一個(gè)bug吧，大家以后要小心了2008-06-06
vbscript 可以按引用傳遞參數(shù)嗎？...2006-10-10
SQL獲取表結(jié)構(gòu)的show_table.vbs （冰點(diǎn)極限NP）
SQL獲取表結(jié)構(gòu)的show_table.vbs，用vbs實(shí)現(xiàn)查看sql數(shù)據(jù)庫的表結(jié)構(gòu)的代碼。需要傳入用戶名密碼與數(shù)據(jù)庫名稱，具體的看程序幫助。2010-11-11
VBS教程：VBscript語句-On Error 語句...2006-11-11
文件夾定時(shí)自動(dòng)備份 AutoBackUpFolder.vbs
定時(shí)自動(dòng)備份文件夾到一個(gè)以時(shí)間命名的新目錄，設(shè)置好后加到啟動(dòng)項(xiàng)里，只要一啟動(dòng)機(jī)器程序就會(huì)自動(dòng)運(yùn)行，占系統(tǒng)資源可以不計(jì)。2009-07-07
啟用：regsvr32 scrrun.dll 禁用：regsvr32 /u scrrun.dll2008-07-07
VBS教程：屬性-SerialNumber 屬性...2006-11-11
VBS 獲取外網(wǎng)IP的實(shí)現(xiàn)代碼
這篇文章主要介紹了用vbs獲取外網(wǎng)的ip地址，通過用vbs訪問ip顯示頁面的返回值實(shí)現(xiàn)，需要的朋友可以參考下2013-07-07
VBS教程：VBscript屬性-Length 屬性...2006-11-11
vbscript LoadPicture函數(shù)使用方法與漏洞利用
因?yàn)橛腥苏f這里L(fēng)oadPicture的代碼有些問題，所以這里給修正下，方便需要的朋友2008-12-12