Hi,

Thank for your advise, will add your code to my program and hope it solve my problem.

Below is my form activate method that do the unzipping, hope that you can
check or see any bugs in my code. Thank you

Unzip.Activate Method
=====================

THISFORM.ZipError = .F.

WITH THISFORM.oleunzip

.Zipfile = THISFORM.InputFileName <---- pass in parameter of the zipfile
.Filespec='*.*'
.Destination = THISFORM.OutputFileName <--- normally is like d:\temp\*.*

.BackGroundProcessFlag = .F.

.AllQuiet = .T.
.QuietFlag = .T.

.MajorStatusFlag = .T.
.OverwriteFlag = .T.

.MessageCallBackFlag = .T.

ENDWITH

Application.AutoYield = .F.

THISFORM.oleunZip.ActionDz = 8 && Unzipping

IF THISFORM.oleunZip.ErrorCode <> 0
WriteToLogFile(mmstdir+"posgate.log","Unzipping error code = "+ALLT(STR(THISFORM.oleunZip.ErrorCode)))
THISFORM.ZipError = .T.
ENDIF

Application.AutoYield = .T.

RELEASE THISFORM