تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] أحتاج محترف يعدل كود نقل
#1
السـلام عليكم ورحمة الله وبركاته 


عندي أجهزه مرتبطه في سيرفر طبعاً يتم نقل المجلدات من الجهاز وتترحل إلى السيرفر داخل مجلد تم أنشـاء له مشـاركه من قبل 

هذا الكود يعمل وينقل المجلدات ولكنه لا يصمد أمام المجلدات ذات الحجم الكبيـر أقصد ( من 8 إلى 50) 

عندا أرسال ملف بحجم كبير يتم تعليق البرنامج ويعطيني رسـاله في أعلى الفورم (البرنامج لا يستجيب )

أتمنى من أهل الخبـره مسـاعدتي في تعديـل الكود :

كود :
Dim aa As String = DateAndTime.Now.Day
       'دالة تخزن الشهر الحالي بها
       Dim ab As String = DateAndTime.Now.Month
       'دالة تخزن السنه الحاليه بها
       Dim ac As String = DateAndTime.Now.Year
       '******************************************]
       If t1.Text > "" Then
           Dim filyname As String = My.Computer.FileSystem.GetDirectoryInfo(t1.Text).Name
           Try
               ' My.Computer.FileSystem.MoveDirectory(t1.Text, "\\169.254.202.161\All_Data\" + ComboBox1.Text & "\" + aa + "-" + ab + "-" + ac & "\" + filyname)
               My.Computer.FileSystem.MoveDirectory(t1.Text, "C:\Users\DOL\Desktop\lllll\" + ComboBox1.Text & "\" + aa + "-" + ab + "-" + ac & "\" + filyname)
               MsgBox("تم النقل بنجاح", MsgBoxStyle.Information, "رساله إداريه")
تحياتي
الرد }}}}
تم الشكر بواسطة:
#2
يـــا شباب فكرتي بسيطه المجلد حجمه كبير الاحجام اللي أتعامل مع نقلها بالغيغا بايت
الرد }}}}
تم الشكر بواسطة:
#3
اعتقد انه يجب عليك استخدام الثريدينج
الرد }}}}
تم الشكر بواسطة:
#4
(17-10-17, 05:13 PM)thevirus كتب : اعتقد انه يجب عليك استخدام الثريدينج

قم بتجربه هذه الطريقه اخي

كود :
      Dim aa As String = DateAndTime.Now.Day
      'دالة تخزن الشهر الحالي بها
      Dim ab As String = DateAndTime.Now.Month
      'دالة تخزن السنه الحاليه بها
      Dim ac As String = DateAndTime.Now.Year

Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
       If t1.Text > "" Then
          Dim filyname As String = My.Computer.FileSystem.GetDirectoryInfo(t1.Text).Name
          My.Computer.FileSystem.MoveDirectory(t1.Text, "\\169.254.202.161\All_Data\" + ComboBox1.Text & "\" + aa + "-" + ab + "-" + ac & "\" + filyname)
          My.Computer.FileSystem.MoveDirectory(t1.Text, "C:\Users\DOL\Desktop\lllll\" + ComboBox1.Text & "\" + aa + "-" + ab + "-" + ac & "\" + filyname)
       end if
End Sub
   Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
          MsgBox("تم النقل بنجاح", MsgBoxStyle.Information, "رساله إداريه")
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       BackgroundWorker1.RunWorkerAsync()
   End Sub

يمكنك ايضا اضافه صوره متحركه او كتابه لاظهار انه ينم عمليه النقل.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أحتاج أدوات بسيطه طـلال 4 129 04-11-17, 03:46 AM
آخر رد: Rabeea Qbaha
  [مقال] كيف اصبح مبرمج محترف elokely 2 139 17-10-17, 05:12 PM
آخر رد: thevirus
  أحتاج كود اعادة ترقيم حقل المسلسل بعد حذف صف ما في الجدول Abdelazez.Ahmad 14 623 19-09-17, 09:38 PM
آخر رد: أحمد إبراهيم سعد
  [سؤال] أحتاج حل لأخطأ البرامج مفتوحة المصدر nouri32 13 442 20-05-17, 04:24 AM
آخر رد: nouri32
  أحتاج كود يغير لون صف أو اكثر من صف في داتا غريد فيو بناء على شرط samawi 2 197 29-04-17, 12:56 AM
آخر رد: samawi
  [سؤال] سؤال صعب لكن أحتاج خبراتكم : ارسال رسالة من برنامجى الى الجوال ( التليفون المحمول) DR.YASER 14 1,987 28-04-16, 09:32 PM
آخر رد: zinom
  أحتاج كحود الوقوف على آخر سجل و كود للتنقل بين العناصر AL - WafaaPro 14 1,130 09-04-16, 02:11 PM
آخر رد: AL - WafaaPro
Sad [كود] ممكن احد يعدل على هذا الكود أسامة 4 1,360 06-04-16, 06:44 PM
آخر رد: ghaner joseph
  [VB.NET] أحتاج مساعده قاعدة البيانات أبو فيصل 4 1,001 08-11-15, 01:37 PM
آخر رد: أبو فيصل
  خبراء Report Viwer أحتاج خبراتكم لهذا الجدول .. starosta 10 1,069 04-11-15, 08:28 PM
آخر رد: أبو عمر

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم