Resfichier=fRep(Cheminarchive+Nomarchive,frFichier)
SI Resfichier="" ALORS
zipCrée(Nomarchive,Cheminarchive)
FIN
SI Rescréationarchive<>0 ALORS
Erreur(zipMsgErreur(Rescréationarchive))
FIN
zipOuvre(Nomarchive,Cheminarchive+Nomarchive)
Resfichier=fRep(Cheminarchive1+"*.*",frFichier)
TANTQUE Resfichier<>""
Jauge1=Evénement("jaugecompression",FenEnExécution(),JaugeCompactage)
BTN_ok..Etat=Grisé
BTN_Annuler..Etat=Grisé
BTN_SELECTEUR..Etat=Grisé
SI Minuscule(Droite(Resfichier,3))="fic" OU …
Minuscule(Droite(Resfichier,3))="ndx" OU...
Minuscule(Droite(Resfichier,3))="mmo" OU…
Minuscule(Droite(Resfichier,3))="bmp" OU...
Minuscule(Droite(Resfichier,3))="jpg" OU …
Minuscule(Droite(Resfichier,3))="png" OU...
Minuscule(Droite(Resfichier,3))="gif" OU …
Minuscule(Droite(Resfichier,3))="rep" OU...
Minuscule(Droite(Resfichier,3))="ico" ALORS
zipAjouteFichier(Nomarchive,Resfichier,zipDisque)
FIN
Resfichier=fRep("",frFichier)
FIN
BTN_ok..Etat=Actif
BTN_Annuler..Etat=Actif
BTN_Selecteur..Etat=Actif
FinEvénement(Jauge1)
Jauge1..Visible=Faux
zipFerme(Nomarchive)
LIB_Libellé2..Visible=Faux
LIBfichierencours..Visible=Faux
Ferme()
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=20&topic_id=6306&post_id=24999