SI HOuvreAnalyse(sMaChaîne) ALORS
clMonlog:AjoutLigne(HeureVersChaîne(HeureSys()),"Ouverture de l'analyse "+sMaChaîne,"Tache plannifer")
mesFic = HListeFichier(sMaChaîne)
nNbfic = ChaîneOccurrence(mesFic,RC)
POUR i = 1 A nNbfic
sFicencours = ExtraitChaîne(mesFic, i,RC)
SI HConnecte(sFicencours) ALORS
SI HRéindexe(sFicencours) ALORS//,hNdxCompactage+hNdxSansStat) ALORS "D:\Mes Projets\BDDCOMI\Exe\"+ +".FIC"
clMonlog:AjoutLigne(HeureVersChaîne(HeureSys()),"réindexation du fichier : "+sFicencours,"Tache plannifer")
SINON
clMonlog:AjoutLigne(HeureVersChaîne(HeureSys()),"réindexation du fichier : "+sFicencours+" échoué","Tache plannifer")
FIN
FIN
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=5182&post_id=21358