33 replies to this topic

[Sean]

It provides a basic zip/unzip support in XP using the native ZipFolder support.
Naturally, the ZipFolder should be enabled for the script to work (regsvr32.exe /s zipfldr.dll).

The example in the script does:
zipping this script/CoHelper.ahk/FileHelper.ahk to script.zip in the temporary folder, then unzipping it in the temporary folder.

DOWNLOAD ZipFolder.ahk and CoHelper.ahk and FileHelper.ahk.

[shajul]

great work..
exactly what i was looking for..

but unzip does not seem to work! am i missing something?

[freakkk]

am i missing something?

Yes.
Works fine here. What code are you using?

[shajul]

Thanks for your prompt reply!

Works fine now! some bug in my system maybe

thanks again!

[tank]

perfect

[HotKeyIt]

Very useful, many thanks.

[..:: Free Radical ::..]

Noticed since most of us have moved to COM stdlib, it may help someone looking for an updated version

Zip(sDir, sZip)
{
	If Not FileExist(sZip)
	{
		VarSetCapacity(Header, 22, 0)
		Header := "PK" . Chr(5) . Chr(6)
		ReadMemory(sZip, &Header, 22)
	}
	psh  := COM_ActiveXObject("Shell.Application")
	pzip := COM_Invoke(psh, "Namespace", sZip)
	COM_Invoke(pzip, "CopyHere", sDir, 4|16)
	Sleep,	1000
	COM_Release(pzip)
	COM_Release(psh)
}

Unz(sZip, sUnz)
{
	psh  := COM_ActiveXObject("Shell.Application")
	pzip := COM_Invoke(psh, "Namespace", sZip)
	punz := COM_Invoke(psh, "Namespace", sUnz)
	pitms:= COM_Invoke(pzip, "Items")
	COM_Invoke(punz, "CopyHere", "+" . pitms, 4|16)
	Sleep,	1000
	COM_Release(pitms)
	COM_Release(pzip)
	COM_Release(punz)
	COM_Release(psh)
}

[aparden]

Wow!

8)

but, how the ... did I miss this excellent script? :shock:

Wed Jun 06, 2007

Likewise!

Thx sean and free radical

[WankaUSR]

I had the same problem and the reason was that path you want to extract in must exist, zip file must exist and be careful how you parse variable to the function. if you are having problems please post your script

[..:: Free Radical ::..]

Mhh, your version, sadly, doesn't work, Free Radical.

Function Name: "Namespace"
Error: The COM Object may not be a valid one!

Get the same error with "CopyHere".

works for me :cry:

Still needs FileHelper.ahk.
Don't forget to #include it.

Also, the sDir must exist, so just use FileSelectFolder to create the folder to zip to, before calling the function,
or add it to the function.

[sinkfaze]

Full credit for re-writing these functions for AutoHotkey_L and COM_L goes to answer4u, I removed the Sleep commands as I believe they were related to the timing of the manual release of COM objects in the original, which is no longer necessary in COM_L:

Zip(sDir, sZip)
{
   If Not FileExist(sZip)
   {
      VarSetCapacity(Header, 22, 0)
      Header := "PK" . Chr(5) . Chr(6)
      ReadMemory(sZip, &Header, 22)
   }
  COM_CreateObject( "Shell.Application" ).Namespace( sZip ).CopyHere( sDir, 4|16 )

}

Unz(sZip, sUnz)
{
   psh  := COM_CreateObject("Shell.Application")
   psh.Namespace( sUnz ).CopyHere( psh.Namespace( sZip ).items, 4|16 )

}