[سعود]

السلام عليكم ورحمة الله و بركاته
التحديث للمشروع الثاني ونفس الشي مناسب للاول وهو تعديل تسمية الملف بعد تعديل الاخ الكريم بارك الله فيه و له.
سيكون تنسيق الاسم الجديد هكذا:

PHP كود :

A7mad_saud.zip.Total27part01 


بالكود التالي:
اولا نعرف متغير باي اسم وتكون قيمته هي عدد الملفات

PHP كود :

       Dim allgroups As Long
        If mo > 0 Then
            allgroups = (rmain + 1)
        ElseIf mo = 0 Then
            allgroups = rmain
        End If 


و عند التسمية نكتب كود:

PHP كود :

       Dim newfile As String = folder & fn & ".Total" & allgroups & "part" & (n1 + 1).ToString(StrDup(Len(rmain.ToString), "0")) 


هذا بالنسبة لعملية الـ split اما الـ merge :

PHP كود :

       Dim newfilename As New IO.FileInfo(lst(0))
        Dim fn As String = newfilename.Name
        fn = Mid(fn, 1, fn.LastIndexOf(".")) 


الان fn  هو الاسم الاصلي بعد حذف الزيادة .
كود زر الدمج بعد التعديل:

PHP كود :

       If txtfolder.Text.Trim = "" Then Exit Sub
        folder = txtfolder.Text
        Dim s As New FolderBrowserDialog
        If s.ShowDialog = Windows.Forms.DialogResult.OK Then
            th = New Threading.Thread(AddressOf merge)
            If th.IsAlive = False Then
                btnsplit.Enabled = False
                btnstopsplit.Enabled = False
                btnmerge.Enabled = False
                btnstopmerge.Enabled = True
                th.Start(s.SelectedPath & "\")
            End If
        End If 


استخدمنا تحديد مجلد لوضع الملف المدموج الجديد والاسم بخطوة الدمج حيث ناخذ اسم اول ملف فقط لتوليد المسمى الاصلي.

اذا لم تتضح فالمثال مرفق من غير كلمة مرور