السلام عليكم ورحمة الله و بركاته
التحديث للمشروع الثاني ونفس الشي مناسب للاول وهو تعديل تسمية الملف بعد تعديل الاخ الكريم بارك الله فيه و له.
سيكون تنسيق الاسم الجديد هكذا:
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
استخدمنا تحديد مجلد لوضع الملف المدموج الجديد والاسم بخطوة الدمج حيث ناخذ اسم اول ملف فقط لتوليد المسمى الاصلي.
اذا لم تتضح فالمثال مرفق من غير كلمة مرور