[dubai.eig]

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

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


البرنامج عندي يعمل فولدر في 
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'


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


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

وشكرا

[ibraheam]

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


تحياتي

[dubai.eig]

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


تحياتي

شكرا راح اجرب

[عبدالله الدوسري]

اضف هذا السطر قبل الأمر 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 


تحياتي

[dubai.eig]

(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 


تحياتي

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