تقييم الموضوع :
  • 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
يـــا شباب فكرتي بسيطه المجلد حجمه كبير الاحجام اللي أتعامل مع نقلها بالغيغا بايت
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أحتاج حل لأخطأ البرامج مفتوحة المصدر nouri32 13 206 20-05-17, 04:24 AM
آخر رد: nouri32
  أحتاج كود يغير لون صف أو اكثر من صف في داتا غريد فيو بناء على شرط samawi 2 72 29-04-17, 12:56 AM
آخر رد: samawi
  [سؤال] سؤال صعب لكن أحتاج خبراتكم : ارسال رسالة من برنامجى الى الجوال ( التليفون المحمول) DR.YASER 14 1,276 28-04-16, 09:32 PM
آخر رد: zinom
  أحتاج كحود الوقوف على آخر سجل و كود للتنقل بين العناصر AL - WafaaPro 14 898 09-04-16, 02:11 PM
آخر رد: AL - WafaaPro
Sad [كود] ممكن احد يعدل على هذا الكود أسامة 4 1,172 06-04-16, 06:44 PM
آخر رد: ghaner joseph
  [VB.NET] أحتاج مساعده قاعدة البيانات أبو فيصل 4 694 08-11-15, 01:37 PM
آخر رد: أبو فيصل
  خبراء Report Viwer أحتاج خبراتكم لهذا الجدول .. starosta 10 760 04-11-15, 08:28 PM
آخر رد: أبو عمر
Star [سؤال] أحتاج المساعده في برنامجي ضغط الملفات adel27 3 641 26-10-15, 10:25 AM
آخر رد: abulayth
  كيف تصبح مبرمج محترف abdallasyam 0 265 07-08-14, 04:22 PM
آخر رد: abdallasyam
  اريد مبرمج محترف لتصميم لعبه تعليميه ارجو الرد ضروووري ام لؤي 2 607 21-03-14, 11:53 PM
آخر رد: mohammed4405

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


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