Sergey,

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.
>
>
>>
>>I try the vfpcompression.fll
>>http://www.sweetpotatosoftware.com/SPSBlog/PermaLink,guid,8decf02a-f5d2-4bfa-a885-b95824c6eed1.aspx
>>
>>I have this screen when the code is launched
>>http://cjoint.com/data/jmmGH60fwB.htm
>>
>> ZipOpen( THIS.lcZipName ) return .T. BUT ZipFolder(... , .F. ) return .F.
>>How to know the problem with Command ZipFolder(... , .F. )
>>*-- it return only .T. OR .F.
>>
>>

>> IF ZipOpen( THIS.lcZipName )
>>    IF ZipFolder( THIS.lcFolderName , .F.) = .T.
>>
>>
>>    ELSE
>>      =ErrorMsg("Impossible de backuper le dossier." + THIS.lcFolderName )
>>      lnretval = .F.
>>      *-- What is the reason ?
>>
>>    ENDIF
>>    * You can zip more folders/files here
>>  ELSE
>>    =ErrorMsg("Impossible d'ouvrir le fichier " + THIS.lcZipName )
>>    lnretval = .F.
>>  ENDIF
>>
>>  ZipClose()
>>
>>

>>
>>
>>Thank in advance
>>
>>bernhart