If you have Windows XP you can unzip your files using the Windons XP unzip function with Shell.application. Although I have yet to figure how to zip them.

cFileZip = "C:\temp\D401001F.ZIP"
cDestination = "c:\temp\"

o=CREATEOBJECT("shell.application")
FOR EACH ofile IN o.NameSpace(cFileZip).items
    o.NameSpace(cDestination).copyhere(ofile)
ENDFOR