[ابو روضة]

(26-05-18, 03:53 AM)elgokr كتب :

لو قمت بالاطلاع على الرابط ستجد كل ما ترده

وسبق ومت بذكر ذلك

ولكن لتبسيط الامر اكثر

بخصوص نقل الملفات

مع كل ملف قم بتكرار سطر النسخ واللصق مثال على الكود

كود :

My.Computer.FileSystem.CopyFile("C:\UserFiles\TestFiles\testFile1.txt", Application.StartupPath & "\testFile1.txt")
My.Computer.FileSystem.CopyFile("C:\UserFiles\TestFiles\testFile2.txt", Application.StartupPath & "\testFile2.txt")
My.Computer.FileSystem.CopyFile("C:\UserFiles\TestFiles\testFile3.txt", Application.StartupPath & "\testFile3.txt")
My.Computer.FileSystem.CopyFile("C:\UserFiles\TestFiles\testFile4.txt", Application.StartupPath & "\testFile4.txt")
My.Computer.FileSystem.CopyFile("C:\UserFiles\TestFiles\testFile5.txt", Application.StartupPath & "\testFile5.txt")
My.Computer.FileSystem.CopyFile("C:\UserFiles\TestFiles\testFile6.txt", Application.StartupPath & "\testFile6.txt")
My.Computer.FileSystem.CopyFile("C:\UserFiles\TestFiles\testFile7.txt", Application.StartupPath & "\testFile7.txt")

وبسبب ان مسار الملفات سيختلف من جهاز الى اخر حسب اسم مجلد مستخدم الجهاز

سيتم كتابة الكود التالى أولاً قبل الاكواد

كود :

Dim AppData_ As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)

من ثم قم بتغيير هذا المسار بمسمى الملف لمسار الملف المراد نسخه

PHP كود :

"C:\UserFiles\TestFiles\testFile1.txt" 


الى المسار التالى

كود :

AppData_ & "\Google\Chrome\User Data\Default\Affiliation Database"

وبالجانب الاخر

كود :

Application.StartupPath & "\Affiliation Database"

لعل الامور تكون وضحت معك

الان ناتي لعملية نسخ المجلد

طبق الكود التالى

كود :

My.Computer.FileSystem.CopyDirectory(AppData_ & "\Google\Chrome\User Data\Default\Extensions", Application.StartupPath &"\Extensions", True)

تحياتى لك

وتمنياتى لك التوفيق

الله يسعدك أخى الكريم ويبارك بعمرك...
المجلد تم نسخه بنجاح لكن الملفات مش عارف ليه مش بتتنسخ ؟
يمكن عشان انت سهلت عمليه نسخ المخلد فى خطوة ففهمتها مباشرة ؟
ما ينفعش اعملها حلقة تكرارية استخرج من مجلد Defaultأى ملف؟
اعتذر لحضرتك