[سؤال] * [تم الحل] * المحاولة الثانية و اللتي باءت بالفشل حول تقسيم ملف بشكل دقيق

PHP كود :

Imports System.IO
Public Class Form1
    Dim filemax As Long = 0
    Dim mb As Long = (1024) ^ 2
    Dim filesize As Long = 0
    Dim folder As String
    Dim th As Threading.Thread
    Private Function fl(ByVal fpath As String)
        If IO.File.Exists(fpath) = True Then
            Dim f As New IO.FileInfo(fpath)
            Return f.Length
        Else
            Return Nothing
        End If
    End Function
    Private Function folderfiles(ByVal fo As String) As Integer
        Dim dir As New IO.DirectoryInfo(fo)
        Return dir.GetFiles.Count
    End Function
    Private Sub split(ByVal fpath As String)
        If IO.File.Exists(fpath) = False Then Exit Sub
        Dim thefile As New IO.FileInfo(fpath)
        Dim fn As String = thefile.Name
        Dim fs As New FileStream(fpath, FileMode.Open)
        Dim br As New BinaryReader(fs)
        Dim i As Long = 0
        Dim n As Long = 0
        Dim mo As Long = filesize Mod filemax
nxt:
        Dim newfile As String = folder & fn & "_File_" & n.ToString("000000") & "_byte"
        p1.Invoke(Sub() p1.Maximum = filemax + (filemax / 80)) 'ماقدرت اتصرف معها زودت القيمة جدعنة بس
        For i = n To br.BaseStream.Length
            n = i
            Dim fw As New FileStream(newfile, FileMode.Append)
            Dim bw As New BinaryWriter(fw)
            bw.Write(br.ReadBytes(i))
            p1.Invoke(Sub() p1.Value = fl(newfile))
            fw.Close()
            fw.Dispose()
            bw.Close()
            bw.Dispose()
            If fl(newfile) >= filemax Then
                n += 1
                GoTo nxt
            End If
        Next ' الغريب ان الاكواد بعد هذا السطر لا يصل اليه البرنامج
        fs.Close()
        fs.Dispose()
        br.Close()
        br.Dispose()
        lbl.Invoke(Sub() lbl.Text = "تم")
        btnstart.Invoke(Sub() btnstart.Enabled = True)
    End Sub
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If IsNothing(th) = False Then
            If th.IsAlive = True Then
                th.Abort()
            End If
        End If
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        rep(Me)
    End Sub
    Private Sub Form1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown, lbl.MouseDown, Label1.MouseDown, p1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            dr = True
            ax = MousePosition.X - Left
            ay = MousePosition.Y - Top
        End If
    End Sub
    Private Sub Form1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove, lbl.MouseMove, Label1.MouseMove, p1.MouseMove
        If dr Then
            Left = MousePosition.X - ax
            Top = MousePosition.Y - ay
        End If
    End Sub
    Private Sub Form1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp, lbl.MouseUp, Label1.MouseUp, p1.MouseUp
        dr = False
    End Sub
    Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles Label2.Click
        Dim o As New OpenFileDialog
        If o.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtsfile.Text = o.FileName
        End If
    End Sub
    Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click
        Dim fbd As New FolderBrowserDialog
        If fbd.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtfolder.Text = fbd.SelectedPath
            If txtfolder.Text.Trim.ToLower.EndsWith("\") = False Then
                txtfolder.Text = txtfolder.Text & "\"
            End If
        End If
    End Sub
    Private Sub btnstart_Click(sender As System.Object, e As System.EventArgs) Handles btnstart.Click
        If txtsfile.Text.Trim = "" Or txtfolder.Text.Trim = "" Or txtmax.Text.Trim = "" Then Exit Sub
        Dim fl As New IO.FileInfo(txtsfile.Text)
        folder = txtfolder.Text
        filesize = fl.Length
        filemax = CLng(txtmax.Text) * mb
        th = New Threading.Thread(AddressOf split)
        btnstart.Enabled = False
        If th.IsAlive = False Then
            th.Start(txtsfile.Text)
        End If
    End Sub
   
End Class

PHP كود :

Private Sub split(ByVal fpath As String)
        If IO.File.Exists(fpath) = False Then Exit Sub
        Dim thefile As New IO.FileInfo(fpath)
        Dim fn As String = thefile.Name
        Dim fs As New FileStream(thefile.FullName, FileMode.Open)
        Dim br As New BinaryReader(fs)
        Dim i As Long = 0
        Dim n As Long = 0
        Dim rmain As Long = (br.BaseStream.Length \ filemax)
        Dim mo As Long = br.BaseStream.Length Mod filemax
        Dim agroups As Long = 0
        If mo > 0 Then
            agroups = (rmain + 1)
        ElseIf mo = 0 Then
            agroups = rmain
        End If

nxt:
        Dim newfile As String = folder & fn & "_File_" & n.ToString("000000") & "_byte"
        p1.Invoke(Sub() p1.Maximum = filemax + (filemax / 80)) 'ماقدرت اتصرف معها زودت القيمة جدعنة بس
        For i = n To br.BaseStream.Length - 1
            n = i
            Dim fw As New FileStream(newfile, FileMode.Append)
            Dim bw As New BinaryWriter(fw)
            bw.Write(br.ReadBytes(i))
            ' lbl.Invoke(Sub() lbl.Text = foldersize(folder))
            p1.Invoke(Sub() p1.Value = fl(newfile))
            fw.Close()
            fw.Dispose()
            fw = Nothing
            bw.Close()
            bw.Dispose()
            bw = Nothing
            If fl(newfile) >= filemax Then
                '  n += 1
                GoTo nxt
            End If
            ' If i >= br.BaseStream.Length - 1 Then GoTo g
            If folderfiles(folder) = agroups Then
                GoTo g
            End If
        Next ' الغريب ان الاكواد بعد هذا السطر لا يصل اليه البرنامج
g:
        newfile = Nothing
        fs.Close()
        fs.Dispose()
        br.Close()
        br.Dispose()
        lbl.Invoke(Sub() lbl.Text = "تم")
        btnstart.Invoke(Sub() btnstart.Enabled = True)
    End Sub