[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, "رساله إداريه")

تحياتي