[سعود]

جربت الفكرة على مجلد مضغوط ونجح كل من التقسيم و الدمج

بقيت نقطة وهي  الاجراء التالي وهو التقسيم لماذا لا يفعل الزر بعد الانتهاء؟

PHP كود :

Private Sub split(fl As String)
        btnsplit.Invoke(Sub() btnsplit.Enabled = False)
        Dim fn As String = IO.Path.GetFileName(fl)
        Dim fsr As New FileStream(fl, FileMode.Open)
        Dim fcount As Integer = fsr.Length
        Dim br As New BinaryReader(fsr)
nxt:
        Dim newfile As String = folder & fn & "_File_" & n
        Dim fsw As New FileStream(newfile, FileMode.Append)
        Dim bw As New BinaryWriter(fsw)
        Dim i As Integer
        For i = lastindex To fcount - 1
            lastindex = i
            If th.ThreadState = Threading.ThreadState.AbortRequested Then Exit Sub
            prog1.Invoke(Sub() prog1.Value = ((i / fcount) * 100))
            bw.Write(br.ReadBytes(i))
            If filelength(newfile) >= splitsize Then
                n += 1
                lastindex += 1
                GoTo nxt
            End If
        Next
        newfile = Nothing
        fsr.Close()
        fsw.Close()
        br.Close()
        bw.Close()
        btnsplit.Invoke(Sub() btnsplit.Enabled = True)
    End Sub 


مع ان التقسيم انتهى!!!
ما المشكلة؟
بالنسبة للمشروع اللذي رفعه الاخ بارك الله فيه لم اتمكن من استيعابه لانه متقدم جدا و لم اجربه. لكني اطلعت عليه اكثر من مرة ولانه غير انجليزي لم اتمكن من فهم المسميات.