>> >>LOCAL ocrapplication ,; >> ocrreport,; >> cName,; >> fso,; >> cdirectory,; >> gnNombreDbc,; >> SetOldDefault >> >>SetOldDefault = SET("DEFAULT()") >> >>cdirectory = "C:\cdbk70\amline\ReportsCrystal" >> >>SET DEFAULT TO ( cdirectory ) >> >>gnNombreDbc = ADIR( gaBaseDonnées, '*.Rpt') && Crée un tableau >>SET DEFAULT TO ( SetOldDefault ) >> >>ocrapplication = CREATEOBJECT('CrystalRuntime.Application.8.5') >> >> >>FOR nCompteur = 1 TO gnNombreDbc && Effectue une boucle pour connaître le nombre de bases de données >> cName = "C:\cdbk70\amline\ReportsCrystal\" + PROPER( gaBaseDonnées( nCompteur , 1 ) ) >> WAIT WIND cName NOWAIT && Affiche le nom des bases de données >> >> ocrreport = ocrapplication.OpenReport( cName , 1 ) >> ocrreport.DATABASE.verify() >> ocrreport.SAVEAS( cName , 2048 ) >> ocrreport = .NULL. >>ENDFOR >> >>>>