Sure Naomi .. old school code .but it works for what i need. I'm sure there is a better way to get it working.

k

n = 1
mes = "Files are now being Zipped"+CHR(13)+"Please Wait .."
wait window mes nowait
ZipCallback("MyCallback()") && Start Event Handling - Any Function/Procedure/Method (in scope of course)
?ZipOpen("C:\myfile\zipfile) &&creates the zipfile
?ZipFolder("C:\myfile\temp\", .F.) && this is the correct version
?ZipClose()

FUNCTION MyCallback()
n = n+1
if n > 200
n = 1
mes = mes+"."
wait window mes nowait
endif
ENDFUNC