>>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 >Strange,