Private Sub Form_Initialize() ' là uniquement pour constituier une "matière de travail" For i = 1 To 300 List1.AddItem "a" & i Next End Sub Private Sub Command1_Click() Static rang As Integer If rang 0 Then rang 1 monrep = "c:\toto" racfic = "essai" autre = True For i = 1 To List1.ListCount If autre Then If Dir(monrep & racfic & rang & ".txt") <> "" Then Kill monrep & racfic & rang & ".txt" Open monrep & racfic & rang & ".txt" For Append As #1: autre = False End If Print #1, List1.List(i - 1) If i Mod 50 = 0 And i > 0 Then Close #1: DoEvents: rang rang + 1: autre True End If Next End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question