[Taha Okla]

هذا نفس الكود مع رشة ملح :

كود :

       Dim C1 As Integer = ListBox1.Items.Count    ' العدد الاجمالي
       Dim G1 As Integer = 40                      ' تعداد المجموعة الواحدة

       Dim GC1 As Integer = C1 \ G1                ' عدد المجموعات
       Dim M1 As Integer = C1 Mod G1               ' الباقي خارج المجموعات المكتملة

       Dim fn As String                            ' مسار ملف الحفظ

       Dim All As String = ""                      ' شغلات كثيرة بعدين بتعرفها

       For i = 0 To C1 - 1
           ListBox1.SetSelected(i, True)
           All &= ListBox1.Text & vbNewLine

           If (i + 1) Mod G1 = 0 And (i + 1) > 0 Then  ' الوصول لأول مجموعة بشرط العداد أكبر من الصفر
               fn = fpath & (i + 1).ToString("000") & ".txt"
               IO.File.WriteAllText(fn, All)
               All = ""
           ElseIf M1 > 0 And i = C1 - 1 Then       ' إذا كان يوجد باقي  والعداد وصل للنهاية
               fn = fpath & (i + 1).ToString("000") & ".txt"
               IO.File.WriteAllText(fn, All)
               All = ""
           End If
       Next

..