My form doesn't run at your pc. Because, it depended my controll classes.

but zipmgr's help very good. Put that class into your form. these are which I use for zip and unzip.

thisform.zipmgr.setincludesubfolders(.t.) &&--- if subfolders will include
thisform.zipmgr.setpassword(xpass) &&---- password
thisform.zipmgr.setoverwritefiles(.t.) &&--- file overwrite thisform.zipmgr.setrunminimized(.f.) &&--- mimimized run 
thisform.zipmgr.setstorefolderinfo(.t.) &&--- folder info for extact same folder
  IF thisform.tur.Value=1 
*--------------- zip ----------------------------
       ERASE (xfile)
     IF !thisform.zipmgr.addfiles(xfile,"*.dbf *.fpt *.mem *.txt")
            STOP("Problem : "+thisform.zipmgr.geterrormessage())
     ENDIF 
  ELSE
*----------------- unzip -----------------------------
     IF !thisform.zipmgr.extractfiles(xfile)
            STOP("Problem : "+thisform.zipmgr.geterrormessage())
     ENDIF 
  ENDIF