[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

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