lnSuccess = loShell.Run(lcCmd,0,.t.)You can also use API_APPRUN in .VCX form File #9477
>* mdir is the directory variable >* zipfl is the zip file name variable > >mtopdir = subs(mdir,1,at('\',mdir)-1) >mtopfls = subs(zipfl,1,at('.',zipfl))+'top' > >*** Either OF these >!zip &mtopfls &mtopdir\*.* >BitRun.bak >*** Or >=ShellBackup([zip &mtopfls &mtopdir\*.* >BitRun.bak]) >*** > >FUNC ShellBackup >Para lcCmd >loShell = CREATEOBJECT("wscript.shell") >lnSuccess = loShell.Run(lcCmd,1,.t.) >>