'aescripts unzip - Ray Dynamic Color v2.5.12
'copyright 2014 http://aescripts.com
'
' USAGE:
'
' cscript //b unzip.vbs zip_file_name_goes_here.zip

Set ArgObj = WScript.Arguments
If (Wscript.Arguments.Count > 0) Then
 var1 = ArgObj(0)
Else
 var1 = ""
End if
strFileZIP = var1
Dim sCurPath
sCurPath = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.Arguments.Item(0))
strZipFile = strFileZIP
'The folder the contents should be extracted to.
outFolder = sCurPath & "\"
Set objShell = CreateObject( "Shell.Application" )
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptions