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
| SI (DateDuJour() > dDernierTraitement) ALORS
fEcritLigne(nIdFichierLog,"Suppression des fichiers xml "+DateDuJour()+HeureSys())
// Pour chaque fichier trouvé on supprime
ResListeFichier = fListeFichier(sFichierXML,frRécursif)
fEcritLigne(nIdFichierLog,"nombre de fichier à supprimer :"+ChaîneOccurrence(ResListeFichier, RC))
POUR TOUTE CHAÎNE sUnFichier DE ResListeFichier SEPAREE PAR RC
// supprime le fichier
fEcritLigne(nIdFichierLog,"fichier à supprimer "+sUnFichier)
Multitâche(100)
fEcritLigne(nIdFichierLog,"debut de boucle")
SI (sUnFichier <> sFichierXMLDefaut) ALORS
fEcritLigne(nIdFichierLog,"j'y suis")
// ouverture pour fermeture du fichier
nidfichierbete=fOuvre(sUnFichier)
SI nidfichierbete<>-1 ALORS
fEcritLigne(nIdFichierLog,"le fichier est ouvert je le ferme")
SI PAS fFerme(nidfichierbete) ALORS
fEcritLigne(nIdFichierLog,"Je ne peux pas fermer le fichier")
SINON
fEcritLigne(nIdFichierLog,"Je ferme le fichier")
FIN
FIN
Multitâche(100)
SI PAS (fSupprime(sUnFichier)) ALORS
fEcritLigne(nIdFichierLog,"Impossible de supprimer le fichier : "+sUnFichier+" - "+DateDuJour()+HeureSys(),ErreurInfo())
SINON
fEcritLigne(nIdFichierLog,"Fichier supprimé "+sUnFichier)
FIN
SINON
fEcritLigne(nIdFichierLog,"Fichier "+sUnFichier+" pas different du fichier par defaut" + sFichierXMLDefaut)
FIN
Multitâche(100)
FIN
FIN |
Partager