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