纯vbs实现zip压缩与unzip解压缩函数代码

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