Skip to content

Instantly share code, notes, and snippets.

@rainb3rry
Created February 19, 2020 19:47
Show Gist options
  • Save rainb3rry/2e59622da278af091aa4e50d5269f866 to your computer and use it in GitHub Desktop.
Save rainb3rry/2e59622da278af091aa4e50d5269f866 to your computer and use it in GitHub Desktop.
Unzip archive files without dialog box in Visual Basic Script (plain state of https://github.com/jgstew/tools/blob/master/VBS/zipExtract.vbs)
Dim strZipFilePath, objOutputFolder, objFSO, objShell
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject( "Shell.Application" )
strZipFilePath = "C:\Users\x\Desktop\file.zip"
objOutputFolder = "C:\Users\x\Desktop"
objShell.NameSpace( objOutputFolder ).copyHere ( objShell.NameSpace( objFSO.GetAbsolutePathName( strZipFilePath ) ).Items() ), 1044
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment