VBScript壓縮單個文件為zip格式
更新時(shí)間：2012年01月23日 19:58:25 作者：
將單個文件壓縮為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)文章
取TM自動登錄代碼并防止關(guān)閉(自動登錄)2008-06-06
用vbs+wmi實(shí)現(xiàn)獲取電腦硬件信息的代碼，真的不錯，方便查看系統(tǒng)硬件信息2008-06-06
查看系統(tǒng)C盤剩下的空間方法有很多，在本文要為大家介紹的是通過VBS腳本是如何實(shí)現(xiàn)的，感興趣的朋友不要錯過2013-11-11
VBS MD5加密算法代碼，需要的朋友可以參考下。2009-12-12
這篇文章主要介紹了微軟自己的代碼加解密實(shí)現(xiàn)方法，需要的朋友可以參考下2013-07-07
通過vbs修改目錄名稱與快捷方式名稱的實(shí)現(xiàn)代碼
這篇文章主要是分享了如果用vbs修改目錄名與快捷方式名稱的代碼，需要的朋友可以參考下2013-07-07
VBS教程：函數(shù)-InStrRev 函數(shù)
VBS教程：函數(shù)-InStrRev 函數(shù)...2006-11-11
VBS教程：方法-GetDrive 方法...2006-11-11
VBScript把json字符串解析成json對象的2個方法
這篇文章主要介紹了VBScript把json字符串解析成json對象的2個方法,本文通過MSScriptControl.ScriptControl和jscript實(shí)現(xiàn),需要的朋友可以參考下2014-08-08
vbs 讀寫注冊表之系統(tǒng)啟動項(xiàng)添加與刪除
這篇文章主要介紹了vbs 讀寫注冊表之系統(tǒng)啟動項(xiàng)添加值,需要的朋友可以參考下2019-12-12