Source code for extract.vbs

Option Explicit

' UnZip "C:\test.zip" into the folder "C:\test1"

Extract "C:\test.zip", "C:\test1"

' Extract "C:\test.cab" into the folder "C:\test2"

Extract "C:\test.cab", "C:\test2"

' Copy the contents of folder "C:\test2" to the folder "C:\test3"

Extract "C:\test2", "C:\test3"

Sub Extract( ByVal myZipFile, ByVal myTargetDir )

' Function to extract all files from a compressed "folder"

' (ZIP, CAB, etc.) using the Shell Folders' CopyHere method

' (http://msdn2.microsoft.com/en-us/library/ms723207.aspx).

' All files and folders will be extracted from the ZIP file.

' A progress bar will be displayed, and the user will be

' prompted to confirm file overwrites if necessary.

'

' Note:

' This function can also be used to copy "normal" folders,

' if a progress bar and confirmation dialog(s) are required:

' just use a folder path for the "myZipFile" argument.

'

' Arguments:

' myZipFile    [string]  the (path and) file name of the ZIP file

' myTargetDir  [string]  the path of the (existing) destination folder

'

' Based on an article by Gerald Gibson Jr.:

' http://www.codeproject.com/csharp/decompresswinshellapics.asp

'

' Written by Rob van der Woude

' http://www.robvanderwoude.com

	Dim intOptions, objShell, objSource, objTarget

	' Create the required Shell objects

	Set objShell = CreateObject( "Shell.Application" )

	' Create a reference to the files and folders in the ZIP file

	Set objSource = objShell.NameSpace( myZipFile ).Items( )

	' Create a reference to the target folder

	Set objTarget = objShell.NameSpace( myTargetDir )

	' These are the available CopyHere options, according to MSDN

	' (http://msdn2.microsoft.com/en-us/library/ms723207.aspx).

	' On my test systems, however, the options were completely ignored.

	'      4: Do not display a progress dialog box.

	'      8: Give the file a new name in a move, copy, or rename

	'         operation if a file with the target name already exists.

	'     16: Click "Yes to All" in any dialog box that is displayed.

	'     64: Preserve undo information, if possible.

	'    128: Perform the operation on files only if a wildcard file

	'         name (*.*) is specified.

	'    256: Display a progress dialog box but do not show the file

	'         names.

	'    512: Do not confirm the creation of a new directory if the

	'         operation requires one to be created.

	'   1024: Do not display a user interface if an error occurs.

	'   4096: Only operate in the local directory.

	'         Don't operate recursively into subdirectories.

	'   9182: Do not copy connected files as a group.

	'         Only copy the specified files.

	intOptions = 256

	' UnZIP the files

	objTarget.CopyHere objSource, intOptions

	' Release the objects

	Set objSource = Nothing

	Set objTarget = Nothing

	Set objShell  = Nothing

End Sub