国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

純vbs實現zip壓縮與unzip解壓縮函數代碼

2020-03-24 19:24:12
字體:
來源:轉載
供稿:網友
壓縮代碼:
復制代碼 代碼如下:
Zip "D:/test.iso", "D:/test.zip"
Zip "D:/test", "D:/test.zip"
Msgbox "OK"

Sub Zip(ByVal mySourceDir, ByVal myZipFile)
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.GetExtensionName(myZipFile) "zip" Then
Exit Sub
ElseIf fso.FolderExists(mySourceDir) Then
FType = "Folder"
ElseIf fso.FileExists(mySourceDir) Then
FType = "File"
FileName = fso.GetFileName(mySourceDir)
FolderPath = Left(mySourceDir, Len(mySourceDir) - Len(FileName))
Else
Exit Sub
End If
Set f = fso.CreateTextFile(myZipFile, True)
f.Write "PK" & Chr(5) & Chr(6) & String(18, Chr(0))
f.Close
Set objShell = CreateObject("Shell.Application")
Select Case Ftype
Case "Folder"
Set objSource = objShell.NameSpace(mySourceDir)
Set objFolderItem = objSource.Items()
Case "File"
Set objSource = objShell.NameSpace(FolderPath)
Set objFolderItem = objSource.ParseName(FileName)
End Select
Set objTarget = objShell.NameSpace(myZipFile)
intOptions = 256
objTarget.CopyHere objFolderItem, intOptions
Do
WScript.Sleep 1000
Loop Until objTarget.Items.Count 0
End Sub

解壓縮代碼:
復制代碼 代碼如下:
UnZip "D:/test.iso", "D:/test.zip"
Msgbox "OK"

Sub CopyFolder(ByVal mySourceDir, ByVal myTargetDir)
Set fso = CreateObject("Scripting.FileSystemObject")
If NOT fso.FolderExists(mySourceDir) Then
Exit Sub
ElseIf NOT fso.FolderExists(myTargetDir) Then
fso.CreateFolder(myTargetDir)
End If
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(mySourceDir)
Set objFolderItem = objSource.Items()
Set objTarget = objShell.NameSpace(myTargetDir)
intOptions = 256
objTarget.CopyHere objFolderItem, intOptions
End Sub

用VBS解壓ZIP文件,網上搜到的多數是調用WinRAR,一點技術含量也沒有。Google一下“VBS 解壓ZIP”,第二是搜搜問問“vbs實現解壓縮zip文件”,滿意答案是“所以想用vbs來解壓這兩種格式的文件,至少要有兩種命令行解壓工具,否則是絕對不可以的”。絕對不可以的,回答的人好自信啊,笑而不語~
原文:http://demon.tw/programming/vbs-zip-file.html
http://demon.tw/programming/vbs-unzip-file.htmlhtml教程

鄭重聲明:本文版權歸原作者所有,轉載文章僅為傳播更多信息之目的,如作者信息標記有誤,請第一時間聯系我們修改或刪除,多謝。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 东台市| 锡林浩特市| 赞皇县| 赣州市| 博湖县| 静宁县| 北票市| 新密市| 兴和县| 河南省| 新郑市| 上犹县| 龙南县| 潍坊市| 徐水县| 樟树市| 淳安县| 大荔县| 抚顺市| 马边| 化州市| 江口县| 进贤县| 怀柔区| 永泰县| 万山特区| 贡山| 专栏| 集贤县| 沂源县| 灌云县| 南陵县| 蒙城县| 南投县| 长宁县| 马尔康县| 抚州市| 拉萨市| 离岛区| 铁岭县| 本溪市|