EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DESCRIPTIONFIC" TO F.DESCRIPTIONFIC ELSE STOP
10 READNEXT FICHIER ELSE STOP
DFICHIER="D_":FICHIER
PRINT "Fichier : ":FICHIER
EXECUTE "!copy \\serveurnt\developpement\basedonnees\":DFICHIER:" \\serveurnt\developpement\baseinfologis\":DFICHIER
GOTO 10
