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