MODULE testFileName;

IMPORT FileName;

VAR 
  chaine : ARRAY[0..256] OF CHAR;
  f : FileName.Format;
  a, b, c, d : ARRAY[0..256] OF CHAR;
  
BEGIN
  chaine := "/Projets/Projets-Modula2/CocoGm2/test.mod";
  (*FileName.Get(chaine,a,b,c);*)
END testFileName.