[sooriaty03]

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

تفضل أخي الكريم

كود :

For I = 0 To ListBox1.Items.Count - 1 Step 250
            Dim FileNumber As Integer = I \ 250 + 1
            FileOpen(1, "File" & FileNumber & ".txt", OpenMode.Output)
            Dim X As Integer = IIf(I + 250 < ListBox1.Items.Count, 249, ListBox1.Items.Count - I - 1)
            For H = I To I + X
                Print(1, ListBox1.Items(H) & IIf(H = I + X, "", vbNewLine))
            Next
            FileClose(1)
        Next

بالتوفيق