[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'


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


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

وشكرا