Yes but i have'nt all the sub directories ....in the zip file .

>Would it work if you change second parameter to .T. ?
>
>>sorry for disturbe...
>>
>>
>>Try this code :
>>
>>

>>=test149()
>>
>>FUNCTION test149()
>>  CLEAR
>>  SET LIBRARY TO LOCFILE("vfpcompression.fll")
>>  ?zipopen( "data21.zip" , "C:\backup\" )  && Return .T.
>>
>>   ?zipfolder("C:\cdbk90\Amline\Data1" , .F. )  && RETURN .T.
>>
>>  ?zipclose()  && RETURN .T.
>>  SET LIBRARY TO
>>
>>ENDFUNC
>>
>>

>>
>>I have a file ( data21.zip with only 1 Ko ????
>>
>>
>>bernhart
>>
>>
>>
>>>If you don't care about path stored in the ZIP, try
>>>

>>>IF ZipFolder(THIS.lcFolderName , .T.)
>>>

>>>BTW, there's no need to compare return value of ZipFolder() with .T. or .F. because it's logical already.
>>>