Recent dans vos menu

Dim Menu% , Dossier$ ,File$ , NClick%
Label Recent_File, Ouvrir
Dossier$="C:\Users\pascal\Documents"    : ' Changer le nom pascal par
Dir_Change "C:\Users\pascal\Documents"  : ' par le nom de l'Utilisateurs

Menu%=70
Memo 1
Full_Space 1

Dlist 2

Main_Menu 3
 Sub_Menu 4 : Caption 4,"Fichier" : Parent 4,3
 
  Sub_Menu 5 : Caption 5,"Ouvrir"
  Parent 5,4 : On_Click 5,Ouvrir
 
  Sub_Menu 6 : Caption 6,"-"
  Parent 6,4
  Sub_Menu 70 : Caption 70,"Recent"
  Parent 70,4
 
Open_Dialog 10

End

Recent_File:
   Clear 1
   NClick%=Number_Click
   NClick%=NClick%-70
   file$=Item_Read$(2,NClick%)
   File_Load  1,Item_Read$(2,NClick%)
   Caption 0,file$
End

Ouvrir:
 Clear 1
   File$=File_Name$(10)
   If file$="_" Then Return
   File_Load 1,file$
   Menu%=Menu%+1
  
      Sub_Menu Menu%:Caption Menu%,file$:Parent Menu%,70
      On_Click Menu%,Recent_File
   Item_Add 2,File$
Return