Archivage

[MattaFa]

Bonjour à tous !

J'ai mis en place une Application dans laquelle, tout est lié à un seul Fichier (Projet).
Donc il serrait impossible faire un archivage des fichiers (Personnel, Prestataires....)
et non plus le Fichier (Projet) puisqu'un Projet fini quant les autres sont en cours.

Dans ce cas comment faire l'archivage ?

[Abconception]

(01-02-2019, 10:30 AM)MattaFa a écrit : Bonjour à tous !

J'ai mis en place une Application dans laquelle, tout est lié à un seul Fichier (Projet).
Donc il serrait impossible faire un archivage des fichiers (Personnel, Prestataires....)
et non plus le  Fichier (Projet) puisqu'un Projet fini quant les autres sont en cours.

Dans ce cas comment faire l'archivage ?

Bonjour Mattafa,
Nous aimerions bien vous aidez, mais le soucis est que moi je n'arrive pas à comprendre concrètement ce que vous voulez faire.
Soit plus précis et vous aurez des pistes de solution ou des solutions.
Excellente journée et surtout courage.

[sodevart]

(15-03-2019, 12:03 PM)Abconception a écrit :

(01-02-2019, 10:30 AM)MattaFa a écrit : Bonjour à tous !

J'ai mis en place une Application dans laquelle, tout est lié à un seul Fichier (Projet).
Donc il serrait impossible faire un archivage des fichiers (Personnel, Prestataires....)
et non plus le  Fichier (Projet) puisqu'un Projet fini quant les autres sont en cours.

Dans ce cas comment faire l'archivage ?

Bonjour Mattafa,
Nous aimerions bien vous aidez, mais le soucis est que moi je n'arrive pas à comprendre concrètement ce que vous voulez faire.
Soit plus précis et vous aurez des pistes de solution ou des solutions.
Excellente journée et surtout courage.

Bonjour,
D'après ce que j'ai compris, tu veux sauvegarder les fichiers de ton application, voici un bout de code qui va t'aider (Mets le ton le click d'un bouton):

NumErrZip est un entier
NumErrZip = zipCrée("MonArchive", fRepEnCours()+"\Archives\Archive"+DateSys()+"à"+HeureSys()+".zip")
SI NumErrZip=0 ALORS
NumErrZip = zipAjouteListeFichier("MonArchive", fRepEnCours()+"\Personnel.fic"+RC+fRepEnCours()+"\Prestataires.fic"...
+RC+fRepEnCours()+"\Fichier1.fic"+RC+fRepEnCours()+"\Fichier2.fic"+RC+fRepEnCours()+"\Fichier3.fic")
SI NumErrZip <> 0 ALORS
Erreur(zipMsgErreur(NumErrZip))
FIN
zipFerme("MonArchive")
SINON
Erreur(zipMsgErreur(NumErrZip))
FIN
Info("Données archivées avec succès!")

Bonne chance!