OK sergey , i shell do it...

>You'll have to contact Craig about that problrm.
>
>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.
>>>>>