#define ZIP_SUCCESS 0
#define INCOMINGZIPNAME	"whatever.zip"

lcZipFileName = "a:\" + INCOMINGZIPNAME
lcZIPDestination = "c:\temp"

if !file(lcZipFileName)
   messagebox("File " + lcZipFileName + " not found!", 16, "Diskette")
   return .f.
endif

set procedure to DynaZip   && DynaZip.prg is a wrapper to DynaZip Easy UNZIP DLLs

poZipObj = CREATEOBJECT("DynaZip")
if poZipObj.RUN_UNZIP(lcZipFileName, lcZIPDestination, " *.*") = ZIP_SUCCESS
   * now we have unzipped files in \temp
   * move and or/merge unzipped  files (each one individually down below)
else
   * error unzipping
   wait clear
   messagebox("Error unzipping " + lcZipFileName + "!", 16, "UNZIP Error")
   RETURN .F.
endif

wait window "Erasing ZIP file from diskette..." NOWAIT
erase (lcZipFileName)
...
...