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.
> 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() > >>