COM unzip in Windows 7

[danotto94]

I tried http://www.autohotkey.com/board/topic/6 ... ta7-ahk-l/ and another script. Both produce a new folder with a direct access to My Computer (if that's the correct translation). Any ideas?

[tank]

Code: Select all

unzip( source, outdir )
	{
	objShell := ComObjCreate( "Shell.Application" )
	objSource := objShell.NameSpace( source ).Items()
	objTarget := objShell.NameSpace( outdir )
    ;~ https://msdn.microsoft.com/en-us/library/windows/desktop/bb787866(v=vs.85).aspx
	intOptions = 256 + 128
	objTarget.CopyHere(objSource, intOptions)
	ObjRelease( objShell )
	}

I dunno what your issue is since you wont tell us
here is a stripepd and dumbed down version