SI HSauvegarde(MaConnexion2,"BD_GMA/Commentaires.fic", gsPathDataCommentaires, Vrai) ALORS
// Création de l'archive
zMonArchive est un zipArchive
nResAjoutRép est un entier = 0
ResAjoutFichier est un entier = 0
nResCréation est un entier = 0
sNomArchive est chaîne = ""

// Création de l'archive
sNomArchive = "C:\Temp\" + "Archive" + DateHeureSys + ".zip"
nResCréation = zipCrée(zMonArchive, sNomArchive)
SI nResCréation = 0 ALORS
sResListeFichier = fListeFichier(gsPathDataCommentaires + "\*", frRécursif + frInterruptible)

// Pour chaque fichier trouvé
POUR TOUTE chaîne sUnFichier de sResListeFichier SEPAREE PAR RC
Trace (sUnFichier)
// Ajout d'un fichier dans une archive
ResAjoutFichier = zipAjouteFichier(zMonArchive, sUnFichier, zipDisque)
SI ResAjoutFichier <> 0 ALORS
Erreur(zipMsgErreur(ResAjoutFichier))
FIN
FIN
zipFerme(zMonArchive)
FIN
sResListeFichier = fListeFichier(gsPathDataCommentaires + "\*")
POUR TOUTE chaîne sUnFichier de sResListeFichier SEPAREE PAR RC
Trace (sUnFichier)
fSupprime(sUnFichier)
FIN
FIN

sResListeFichier = fListeFichier(gsPathDataImages + "\*.JPG")
POUR TOUTE chaîne sUnFichier de sResListeFichier SEPAREE PAR RC
sTemp = ExtraitChaîneEntre(sUnFichier, 1,"\","JPG",DepuisFin)
sTemp = Gauche(sTemp,4)
SI sTemp = "Temp" ALORS
fSupprime (sUnFichier)
FIN
FIN