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

تحياتى لك

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