I can't remember who gave this code me, thank him/her. This is for zip:

LPARAMETERS cFileZip,cSource
Wait WINDOW NOWAIT cfilezip+" dosyası "+csource+" dosyasına yedekleniyor..."
strtofile(chr(0x50)+chr(0x4B)+chr(0x05)+chr(0x06)+replicate(chr(0),18),cFileZip)
o=CREATEOBJECT("shell.application")
FOR EACH ofile IN o.NameSpace(cSource).items
   o.NameSpace(cFileZip).copyhere(ofile)
ENDFOR

this is for unzip:

LPARAMETERS cFileZip,cDestination

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