[adel27]

السـلام عليكم ورحمة الله وبركاته 


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

هذا الكود يعمل وينقل المجلدات ولكنه لا يصمد أمام المجلدات ذات الحجم الكبيـر أقصد ( من 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, "رساله إداريه")

تحياتي

[adel27]

يـــا شباب فكرتي بسيطه المجلد حجمه كبير الاحجام اللي أتعامل مع نقلها بالغيغا بايت

[thevirus]

اعتقد انه يجب عليك استخدام الثريدينج

[Rabeea Qbaha]

(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

يمكنك ايضا اضافه صوره متحركه او كتابه لاظهار انه ينم عمليه النقل.