johan van zyl

Hi
The following does not work as expected.
It only zips '*.app' and does NOT also zip '*.dct *.tps' ??
OF ?StartButton
CASE EVENT()
OF Event:Accepted
zip.SetArchiveName(zipArchiveName)
zip.DefineFileSpec( '*.app' )
zip.AddFileSpec( '*.dct *.tps' )
zip.AddFlag( ZIP_QUIET_FLAG)
zip.SetCompressionLevel(2)
Res=zip.LSZEXECUTE(zm_UPDATE)
if res
MESSAGE('Error: '&errorcode()&' '&error())
end

end
Greetings
JVZ

Johan van ZylJohan van Zyl JVZ.SYSTEMS customised software clarion mssql
accpac simply accounting crystal reports 8 Westbrooke Voortrekker Road
Somerset West 7130 - PO Box 3469 Somerset West 7129 Tel/Fax 021 851 7205 -
Johan 082 875 4238 - Davida 083 774 9 775 http://www.jvz.co.za -
johan@jvz.co.za - davida@jvz.co.za