VBScript Basics, Part 54 | Unzip - Extract Compressed Files

VBScripting (.vbs) Basic Tutorial On How-To:
Extract all of your compressed files.

Code Example:
******************

Option Explicit
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objAPP : Set objAPP = CreateObject("Shell.Application")
Dim COMP : COMP = "C:\Users\Jeremy\Desktop\Test.zip"
Dim EXTR : EXTR = Left(COMP, InStrRev(COMP,".") - 1)

If Not objFSO.FolderExists(EXTR) then
objFSO.CreateFolder EXTR
End If

objAPP.NameSpace(EXTR).CopyHere(objAPP.NameSpace(COMP).Items)

******************

Option Explicit
Dim objSHL : Set objSHL = WScript.CreateObject ("WScript.shell")
Dim ZippedFile, ExtractTo
ZippedFile = "C:\Users\Jeremy\Desktop\testzipfile.7z"
ExtractTo = "C:\Users\Jeremy\Desktop\testfolder"
'objSHL.Run """C:\Program Files\WinRar\WinRar.exe"" x "&ZippedFile&" -o"&ExtractTo,0,True

objSHL.Run """C:\Program Files\7-Zip\7z.exe"" x "&ZippedFile&" -o"&ExtractTo,0,True

Видео VBScript Basics, Part 54 | Unzip - Extract Compressed Files канала SimplyCoded