منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

وشكرا

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

تحياتي

(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

تحياتي

(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

تحياتي

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

dubai.eig

ibraheam

dubai.eig

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

dubai.eig