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