lcZipName=This.zipname listfile=Fullpath(".\zip.lst") Strtofile(This.Files, listfile) lcbatFile=Fullpath(Forceext(Sys(2015),"bat")) logfile=Forceext(lcbatFile,"log") This.logfile=logfile TEXT textmerge noshow to lcBat pkzip25 -add=update -dire <<lcZipName>> @<<listfile>> ><<logfile>> ENDTEXT lcThere=Fullpath(".") Strtofile(lcBat, lcbatFile) Local oprocess As api_apprun Of Process.vcx oprocess=Newobject('api_apprun','process', '', lcbatFile, lcThere, 'HID') oprocess.LaunchAppAndWait Release oprocess Erase (lcbatFile)The listfile is just the same old list of filespecs you want to include in the zip - this is for backing up my work, so it looks like this:
M:\RAD\APVFP\OS DZ\SET_ALL.PRG M:\RAD\APVFP\OS DZ\STARTME.PRG M:\RAD\APVFP\OS DZ\OSDZ.PJX M:\RAD\APVFP\OS DZ\OSDZ.PJT M:\RAD\APVFP\OS DZ\SCX\MTRO.SCX M:\RAD\APVFP\OS DZ\SCX\MTRO.SCT M:\RAD\APVFP\OS DZ\SCX\OTUDJE.SCX M:\RAD\APVFP\OS DZ\SCX\OTUDJE.SCT M:\RAD\APVFP\OS DZ\SCX\LJUDI.SCX M:\RAD\APVFP\OS DZ\SCX\LJUDI.SCT M:\RAD\APVFP\OS DZ\SCX\KUPDO.SCX M:\RAD\APVFP\OS DZ\SCX\KUPDO.SCT M:\RAD\APVFP\OS DZ\SCX\AMGRUP.SCX M:\RAD\APVFP\OS DZ\SCX\AMGRUP.SCT M:\RAD\APVFP\OS DZ\SCX\POPIS.SCX M:\RAD\APVFP\OS DZ\SCX\POPIS.SCT M:\RAD\APVFP\OS DZ\SCX\REVAL.SCX M:\RAD\APVFP\OS DZ\SCX\REVAL.SCT M:\RAD\APVFP\OS DZ\SCX\OSSR.SCX M:\RAD\APVFP\OS DZ\SCX\OSSR.SCTI generate that previously using aDir() on selected directories and extensions (don't want to backup .fxp, .bak and few other types).