I created an app that zips all *.dbf files in a directory..
here is a sample.. hope it helps:

FOR ncount = 1 TO ALEN(ziparray,1)
SET DEFAULT TO &thisdir
zipdbf = ziparray(ncount,1) && Name of file (*.dbf)
WAIT WINDOW ' first table is ' + zipdbf TIMEOUT 5
thisdir2 = thisdirdbf
thisdir3 = thisdirdbfM
lcCmd = '"C:\Program Files\Winzip\wzunzip" -ys -o -ybc ' + zipdbf + ;
"*.dbf " + &thisdirdbf
! /N &lcCmd && Unzip the list of zip files Using winzip into current
* directory...
dirzip = thisdirdbf
WAIT WINDOW 'Processing Zipfile # ' + ALLTRIM(STR(ncount)) + ' OF ' +;
ALLTRIM(STR(zipnum)) + ' From ' + zipdbf TIMEOUT 5

* You need the Timeout 5 above since foxpro doesn't know when the winzip will finish.....

...
.. more code..
...
...

endfor