تقييم الموضوع :
  • 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

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


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

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


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