منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] نقل فولدر مع ملفاته - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] نقل فولدر مع ملفاته (/showthread.php?tid=23267)

نقل فولدر مع ملفاته - dubai.eig - 10-01-18

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

محتاج مساعدة في نقل فولدر كامل مع ملفاته من مكان الى مكان


البرنامج عندي يعمل فولدر في 
Documents


بعض الاجهزه اواجه معاها مشكله في هذا المكان
بعضهم يكون Documents مساره يختلف من المسار العادي وهو

C:\Users\ZZZ\Documents

وفي حالت اختلاف المسار البرنامج لا يعمل 

علما بان الكود في البرنامج كذا

كود :
Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments



الان افكر اغير مكان ملفات البرنامج الى ال
C

لهذا محتاج كود يقوم بنقل الفولدر الخاص بالبرنامج الموجود في 


C:\Users\ZZZ\Documents\aplication

الى

C:\aplication



للعلم قمت بالبحث وحصلت كود بس ما ضبط معاي

كود :
   Public Sub MoveAllItemsTo(ByVal fromPathInfo As DirectoryInfo, ByVal toPath As String)
       ''Create the target directory if necessary
       Dim toPathInfo = New DirectoryInfo(toPath)
       If (Not toPathInfo.Exists) Then
           toPathInfo.Create()
       End If
       ''move all files
       For Each file As FileInfo In fromPathInfo.GetFiles()
           file.MoveTo(Path.Combine(toPath, file.Name))
       Next
       ''move all folders
       For Each dir As DirectoryInfo In fromPathInfo.GetDirectories()
           dir.MoveTo(Path.Combine(toPath, dir.Name))
       Next
   End Sub


كود :
       Dim fromDir = New DirectoryInfo("C:\dev\folder2")
       fromDir.MoveAllItemsTo("C:\dev\folder1")


بس يطلع معاي مشكله

MoveAllItemsTo' is not a member of 'DirectoryInfo'


لم اجرب الكود هل يعمل المطلوب او لا 


بارك الله فيكم

وشكرا

RE: نقل فولدر مع ملفاته - ibraheam - 10-01-18

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


تحياتي

RE: نقل فولدر مع ملفاته - dubai.eig - 10-01-18

(10-01-18, 05:18 PM)ibraheam كتب : وعليكم السلام ورحمة الله وبركاته
انظر الرابط التالي
الرابـــــــــــــــــــــــــط


تحياتي

شكرا راح اجرب

RE: نقل فولدر مع ملفاته - عبدالله الدوسري - 11-01-18

اضف هذا السطر قبل الأمر MoveAllItemsTo
<System.Runtime.CompilerServices.Extension()>


ليصبح كالتالي :
PHP كود :
   <System.Runtime.CompilerServices.Extension()>
    Public Sub MoveAllItemsTo(ByVal fromPathInfo As DirectoryInfo, ByVal toPath As String) 


تأكد أن الأمر MoveAllItemsTo موجود في موديل Module وليس في فورم Form

الذي قام بإنشاء هذا الأمر قام يتصميمة على شكل Extension
لأن الكلاس  DirectoryInfo
لا يحتوي على أمر بالأسم MoveAllItemsTo 
مما يؤكد أنه Extension 


تحياتي

RE: نقل فولدر مع ملفاته - dubai.eig - 12-01-18

(11-01-18, 02:55 PM)عبدالله الدوسري كتب : اضف هذا السطر قبل الأمر MoveAllItemsTo
<System.Runtime.CompilerServices.Extension()>


ليصبح كالتالي :
PHP كود :
   <System.Runtime.CompilerServices.Extension()>
    Public Sub MoveAllItemsTo(ByVal fromPathInfo As DirectoryInfo, ByVal toPath As String) 


تأكد أن الأمر MoveAllItemsTo موجود في موديل Module وليس في فورم Form

الذي قام بإنشاء هذا الأمر قام يتصميمة على شكل Extension
لأن الكلاس  DirectoryInfo
لا يحتوي على أمر بالأسم MoveAllItemsTo 
مما يؤكد أنه Extension 


تحياتي

شكرا لك  ساقوم بتجربته ان شاءالله