السلام عليكم ورحمة الله وبركاته
ومتابعة لمسيرتي العملية العلمية قمت بتصفح الكودات في الفيجوال بيسك لكي اتمكن من هذه اللغه
فاحببت ابدا بالاساسيات ووجدت كود نسخ الملفات
ولنفرض ان اسم المستخدم في جهاز اخونا ادريس هو ادريس
وفلان هو فلان
وعلان هو علان
ولنفرض ان اسم المستخدم في جهاز اخونا علي هو علي
ولنفرض ان اسم المستخدم في جهاز اخونا الوادي هو wadi
ولنفرض ان اسم المستخدم في جهاز اخونا سعود هو سعود
والكاتب هو الكاتب
طبعا عملية النسخ لن تتم بسبب اختلاف المستخدمين
اعتقد لابد من تعريف مسار المستخدم
كالتالي
Dim userpath As String = Environment.GetFolderPath(Environment.SpecialFolder.UserProfile)
بس لما اضع المتغير في الكود يجي لي رسالة خطأ في كتابة الكود
ومتابعة لمسيرتي العملية العلمية قمت بتصفح الكودات في الفيجوال بيسك لكي اتمكن من هذه اللغه
فاحببت ابدا بالاساسيات ووجدت كود نسخ الملفات
كود :
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)
بس لما اضع المتغير في الكود يجي لي رسالة خطأ في كتابة الكود