open "BIN\Outpout.txt" for output as #1 'Ouverture d'un fichier Outpout List1.listindex=0 'Mise au début de la liste box do until list1.listindex=list1.listcount-1 'Ici on demande une boucle Print #1, List1.List(List1.ListIndex) 'On écrit le texte de l'item List1.ListIndex = List1.ListIndex + 1 'On passe à l'item suivant Loop Close #1 'On ferme le fichier
open "BIN\Outpout.txt" for output as #1 'Ouverture d'un fichier Outpout for i=0 to list1.listcount-1 'Ici on demande une boucle Print #1, List1.List(i) 'On écrit le texte de l'item next Close #1 'On ferme le fichier