General information
Category:
Coding, syntax & commands
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
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only