cmbNom est une chaîne = "comboIni"
ResFichier est une chaîne
sLangue est une chaîne
sFichier est une chaîne

//Récupration des fichier ini
ResFichier = fRep(ComplèteRep( fRepExe() ) + "language\*.ini", frFichier)
TANTQUE ResFichier <> ""
	sLangue = INILit( "Language", "FileLanguage", "", ResFichier )
	sFichier = INILit( "Language", "FileName", "" , ResFichier )
	SI sLangue <> "" ALORS	ListeAjoute(cmbNom, sLangue + Répète( " ", 50) + TAB + sFichier)
	ResFichier = fRep("", frFichier)
FIN

//Pour ecrire dans un fichier ini l'entrée Message1 avec la valeur 'Ceci est le message 1' dans le fichier french.ini
//On récupère le nom du fichier sélectionné dans la combo
sFichier = ExtraitChaîne( {cmbNom,indChamp}..ValeurAffichée, 2)
INIEcrit( "Language", "Message1", "Ceci est le message 1", ComplèteRep( fRepExe() ) + "language\" + sFichier + ".ini")