亚洲激情专区-91九色丨porny丨老师-久久久久久久女国产乱让韩-国产精品午夜小视频观看

溫馨提示×

溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務條款》

VBScript如何壓縮單個文件為zip格式

發布時間:2021-10-12 09:59:27 來源:億速云 閱讀:152 作者:小新 欄目:開發技術

這篇文章給大家分享的是有關VBScript如何壓縮單個文件為zip格式的內容。小編覺得挺實用的,因此分享給大家做個參考,一起跟隨小編過來看看吧。

代碼如下:


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

感謝各位的閱讀!關于“VBScript如何壓縮單個文件為zip格式”這篇文章就分享到這里了,希望以上內容可以對大家有一定的幫助,讓大家可以學到更多知識,如果覺得文章不錯,可以把它分享出去讓更多的人看到吧!

向AI問一下細節

免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。

AI

江津市| 马公市| 金寨县| 定陶县| 兴国县| 金沙县| 南投县| 鄯善县| 乌什县| 宜丰县| 温州市| 贡山| 横山县| 阳春市| 平乐县| 伊金霍洛旗| 旅游| 新津县| 客服| 新邵县| 仲巴县| 额尔古纳市| 中卫市| 曲阳县| 潜山县| 招远市| 鲁山县| 深水埗区| 镶黄旗| 林甸县| 德兴市| 岳阳市| 长宁县| 开平市| 平舆县| 庆云县| 法库县| 河北区| 沐川县| 抚顺县| 镇远县|