cs_KifKif
Messages postés88Date d'inscriptionjeudi 7 mars 2002StatutMembreDernière intervention 4 avril 2008 26 janv. 2003 à 09:27
KIfKif
'dans form1 insérer une listbox
'mettre la propriété 'Sorted' de list1 sur True
Private Sub Form_Load()
Dim Ligne As String
'indiquer le chemin et le titre du fichier
Open "c:\chemin\titre.txt" For Input As #1
While Not EOF(1)
Line Input #1, Ligne$
List1.AddItem Ligne$
Wend
Close #1
'sauvegarde du fichier trié
Open "c:\chemin\titre.txt" For Output As #1
For i = 1 To List1.ListCount - 1
Print #1, List1.List(i)
Next i
Close #1
End Sub