>IF NOT "VFPCOMPRESSION" $ UPPER(SET("Library")) > SET LIBRARY TO Bin\VfpCompression.fll ADDITIVE >ENDIF >UNZIPQUICK(File,Target) &&give an error "File unzipquick.prg does not exist. >>
SET LIBRARY TO LOCFILE("vfpcompression.fll") CLEAR FOR K=0 TO 22000 lcOriginal = SPACE(m.k) IF UnzipString(ZipString(m.lcOriginal)) == m.lcOriginal LOOP ENDIF ?"ZipString() is buggy",m.k EXIT NEXT SET LIBRARY TO