Function Code for zip compression and unzip decompression using vbs only

Compression Code:

Copy codeThe Code is as follows: 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)
Intopexceptions = 256
ObjTarget. CopyHere objFolderItem, intOptions
Do
WScript. Sleep 1000
Loop Until objTarget. Items. Count> 0
End Sub

Decompress the Code:Copy codeThe Code is as follows: 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)
Intopexceptions = 256
ObjTarget. CopyHere objFolderItem, intOptions
End Sub

Decompress the ZIP file with VBS. Most of the files found on the Internet are WinRAR, which has no technical content. Google "decompress the ZIP file in VBS", and search for "decompress the zip file in vbs". The satisfactory answer is: "I want to decompress the files in these two formats using vbs, there must be at least two command line decompression tools, otherwise it is absolutely impossible ". Absolutely no. The answer is self-confident. You can't smile ~
Original article: http://demon.tw/programming/vbs-zip-file.html
Http://demon.tw/programming/vbs-unzip-file.html