[L35]

وعليكم السلام ورحمة الله وبركاته

PHP كود :

       Dim filecount = Math.Ceiling(ListBox1.Items.Count / 48)
        Dim c As Integer = 0
        For i = 1 To 48
            Dim s As New System.Text.StringBuilder
            For i2 = 1 To filecount
                s.AppendLine(ListBox1.Items(c))
                c = c + 1
                If c = ListBox1.Items.Count Then Exit For
            Next
            IO.File.WriteAllText("bah" & i & "i.txt", s.ToString)
        Next