[sooriaty03]

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

أخي الكريم
الأفضل في هذه الحالة أن تستخدم أداة FolderBrowserDialog
حيث أن الملفات أنت من ستسميها

وهذا الكود بعد التعديل

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            For I = 0 To ListBox1.Items.Count - 1 Step 250
                Dim FileNumber As Integer = I \ 250 + 1
                FileOpen(1, FolderBrowserDialog1.SelectedPath & "\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
        End If
    End Sub

بالتوفيق