1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
| // Création de l'archive
ResFichier = fRep(CheminArchive + NomArchive, frFichier)
SI ResFichier = "" ALORS
zipCrée(NomArchive, CheminArchive)
FIN
// Ouverture de l'archive
zipOuvre(NomArchive, CheminArchive + NomArchive)
ResFichier = fRep(fRepDonnées() + "*.*", frFichier)
TANTQUE ResFichier <> ""
Jauge1 = Evénement("JaugeCompression", FenEnExécution(), JaugeCompactage)
BTN_OK..Etat = Grisé
BTN_ANNUL..Etat = Grisé
SelectArchive..Etat = Grisé
SI Minuscule(Droite(ResFichier,3)) = "ndx" OU Minuscule(Droite(ResFichier,3)) = "mmo" OU ...
Minuscule(Droite(ResFichier,3)) = "fic" 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_ANNUL..Etat = Actif
SelectArchive..Etat = Actif
FinEvénement(Jauge1)
Jauge1..Visible = Faux
zipFerme(NomArchive)
libExplicationFichier..Visible = Faux
libFichierEnCours..Visible = Faux
SI OuiNon("Archivage effectué sur le serveur !" + RC + RC + "Souhaitez-vous placer vos fichiers ailleurs par précaution ?" + RC + RC) ALORS
CheminArchive2 = fSélecteur(CheminArchive,NomArchive,"Sauvegarde d'archive", ...
"Fichier d'archive de la gestion commerciale"+TAB+"*.zip", "zip", fselCrée + fselExiste)
SI CheminArchive2 <> "" ALORS
SI fDisqueInfo(fDisqueEnCours(), fdEspaceLibre) > fTaille(CheminArchive2 + NomArchive) ALORS
SI fCopieFichier(CheminArchive + NomArchive, CheminArchive2) ALORS
Info("Copie de " + NomArchive + " effectuée.")
SINON
Erreur("Problème lors de la copie de " + CheminArchive + NomArchive)
FIN
SINON
Erreur("Copie impossible : manque de place sur " + fDisqueEnCours())
FIN
SINON
SI fRep(CheminArchive + NomArchive, frFichier) = "" ALORS
Erreur("Le Fichier " + NomArchive + " n'est pas dans le répertoire", CheminArchive)
FIN
FIN
FIN
Ferme()
FIN |
Partager