純vbs實現(xiàn)zip壓縮與unzip解壓縮函數(shù)代碼
來源:易賢網(wǎng) 閱讀:1390 次 日期:2016-07-07 15:02:44
溫馨提示:易賢網(wǎng)小編為您整理了“純vbs實現(xiàn)zip壓縮與unzip解壓縮函數(shù)代碼”,方便廣大網(wǎng)友查閱!

用VBS解壓ZIP文件,網(wǎng)上搜到的多數(shù)是調(diào)用WinRAR,一點技術(shù)含量也沒有。聽說可以用純vbs實現(xiàn),特整理給大家,已經(jīng)過測試。喜歡的朋友可以測試下。

壓縮代碼:

代碼如下:

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文件,網(wǎng)上搜到的多數(shù)是調(diào)用WinRAR,一點技術(shù)含量也沒有。Google一下“VBS 解壓ZIP”,第二是搜搜問問“vbs實現(xiàn)解壓縮zip文件”,滿意答案是“所以想用vbs來解壓這兩種格式的文件,至少要有兩種命令行解壓工具,否則是絕對不可以的”。絕對不可以的,回答的人好自信啊,笑而不語~

更多信息請查看腳本欄目
易賢網(wǎng)手機網(wǎng)站地址:純vbs實現(xiàn)zip壓縮與unzip解壓縮函數(shù)代碼
由于各方面情況的不斷調(diào)整與變化,易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考,敬請考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇剩?/div>

2025國考·省考課程試聽報名

  • 報班類型
  • 姓名
  • 手機號
  • 驗證碼
關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡要咨詢 | 簡要咨詢須知 | 新媒體/短視頻平臺 | 手機站點 | 投訴建議
工業(yè)和信息化部備案號:滇ICP備2023014141號-1 云南省教育廳備案號:云教ICP備0901021 滇公網(wǎng)安備53010202001879號 人力資源服務(wù)許可證:(云)人服證字(2023)第0102001523號
聯(lián)系電話:0871-65099533/13759567129 獲取招聘考試信息及咨詢關(guān)注公眾號:hfpxwx
咨詢QQ:1093837350(9:00—18:00)版權(quán)所有:易賢網(wǎng)