linux mint 解压zip,纯vbs脚本实现zip压缩与unzip解压缩

用VBS解压ZIP文件，网上搜到的多数是调用WinRAR，其实可以用纯vbs实现，特整理给大家，已经过测试。喜欢的朋友可以测试下。

压缩代码:

代码如下:

Zip "D: est.iso", "D: est.zip"

Zip "D: est", "D:

est.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:

est.iso", "D: est.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 [喝小酒的网摘]http://blog.hehehehehe.cn/a/16343.htm

[喝小酒的网摘]http://blog.hehehehehe.cn/a/16343.htm