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

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

ومتابعة لمسيرتي العملية العلمية قمت بتصفح الكودات في الفيجوال بيسك لكي اتمكن من هذه اللغه

فاحببت ابدا بالاساسيات ووجدت كود نسخ الملفات

كود :

My.Computer.FileSystem.CopyFile("C:\Users\admin\new folder\1.doc", "C:\Users\admin\aa\1.doc", True)

ولنفرض ان اسم المستخدم في جهاز اخونا ادريس هو ادريس
وفلان هو فلان
وعلان هو علان
ولنفرض ان اسم المستخدم في جهاز اخونا علي هو علي

ولنفرض ان اسم المستخدم في جهاز اخونا الوادي هو wadi
ولنفرض ان اسم المستخدم في جهاز اخونا سعود هو سعود

والكاتب هو الكاتب
طبعا عملية النسخ لن تتم بسبب اختلاف المستخدمين

اعتقد لابد من تعريف مسار المستخدم
كالتالي
Dim userpath As String = Environment.GetFolderPath(Environment.SpecialFolder.UserProfile)

بس لما اضع المتغير في الكود يجي لي رسالة خطأ في كتابة الكود

كود Environment اللي وضعته يأتيك بمسار مجلد المستخدم ولكن لا تنتهي بعلامة (\)

كود :

C:\Users\admin

فلو وضعت بقيت المسار بعد userpath المستخدم مباشرة مثل

كود :

userpath & "new folder\1.doc"

سيكون الناتج

كود :

"C:\Users\adminnew folder\1.doc"

يعني المفروض إضافة علامة (\) مثل

كود :

userpath  & "\" & "new folder\1.doc"

النقطة الثانية مسألة الصلاحيات
فهناك مسارات لا يمكن الدخول لها الا بصلاحية مسؤول

مدري وش اقول عنه ساحر يوم علم مشكلتي بالضبط ام انه عبقري زمانه يوم حلل مشكلتي واعطاني الحل السريع

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

طالب 22

الوادي

طالب 22