SET LIBRARY TO LOCFILE("vfpcompression.fll") m.lcAppPath = ADDBS(JUSTPATH(SYS(16,0))) SET DEFAULT TO (m.lcAppPath) ZipCallback("MyCallback()") && Start Event Handling - Any Function/Procedure/Method (in scope of course) ?UnzipQuick("C:\sps.zip", "C:\tlp") && unzip contents of Test.zip to C:\ ZipCallback("") && Stop Event Handling SET LIBRARY TO ***************************** FUNCTION MyCallback() ***************************** *!* Variables below are created on the fly *!* by the FLL when the ZipCallback feature is used *!* Depends on the value of nZipEvent ?cZipObjectName && Name of Zip, File, or Folder being processed *!* Events that fire MyCallback *!* 0 = Open Zip *!* 1 = Start Zip/Unzip of File *!* 2 = Read/Write File (nZipBytes will contain value of bytes read for event) *!* 3 - End Zip/Unzip of File *!* 4 - Folder Opened *!* 5 - Close Zip ?nZipEvent *!* Number of Bytes read (Event 3) ?nZipBytes ENDFUNC