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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استخراج مجلد وملفات من داخل قرص (/showthread.php?tid=25094)



استخراج مجلد وملفات من داخل قرص - ابو روضة - 26-05-18

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

مش مهم بصيغة وين رار اريد استخراجهم فقط داخل مشروعى


RE: استخراج مجلد وملفات من داخل قرص - elgokr - 26-05-18

الامر بسيط اخى الفاضل
كل ما ستحتاج اليه هو كود عمل نسخ ملف من مكان الى اخر
اذا كنت تحتاج من غير ضغط الملفات يمكنك تطبيق التالى

كود :
My.Computer.FileSystem.CopyFile("C:\UserFiles\TestFiles\testFile.txt", Application.StartupPath & "\testFile.txt")

وللمعرفة اكثر عن الموضوع
وحتى من حيث الحذف او اعادة التسمية او النقل يمكنك الاطلاع على الرابط التالى
https://docs.microsoft.com/en-us/dotnet/visual-basic/developing-apps/programming/drives-directories-files/how-to-create-a-copy-of-a-file-in-a-different-directory

فى القائمة الجانبية يوجد العديد من ما قد تريده



RE: استخراج مجلد وملفات من داخل قرص - ابو روضة - 26-05-18

(26-05-18, 02:18 AM)elgokr كتب :
الامر بسيط اخى الفاضل
كل ما ستحتاج اليه هو كود عمل نسخ ملف من مكان الى اخر
اذا كنت تحتاج من غير ضغط الملفات يمكنك تطبيق التالى

كود :
My.Computer.FileSystem.CopyFile("C:\UserFiles\TestFiles\testFile.txt", Application.StartupPath & "\testFile.txt")

وللمعرفة اكثر عن الموضوع
وحتى من حيث الحذف او اعادة التسمية او النقل يمكنك الاطلاع على الرابط التالى

فى القائمة الجانبية يوجد العديد من ما قد تريده

تسلم اخى لكنى اريد نسخ كل هذا داخل المشروع " مجلد + ملفات ليست تكست "




RE: استخراج مجلد وملفات من داخل قرص - elgokr - 26-05-18

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

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

مع كل ملف قم بتكرار سطر النسخ واللصق مثال على الكود
كود :
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)

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



RE: استخراج مجلد وملفات من داخل قرص - ابو روضة - 26-05-18

(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أى ملف؟
اعتذر لحضرتك



RE: استخراج مجلد وملفات من داخل قرص - elgokr - 26-05-18

السبب ممكن يرجع الى عدم وجود الملفات ببعض الاجهزة
عند اختبار البرنامج
لذلك ستحتاج عند التاكد من وجود الملف على المسار قبل اتمام عملية النسخ

وكذلك يمكن تقليص عملية الكود بطريقة جميلة من خلال For
اذا انتظرت بعض الساعاد عند اتاحة كتابة الكود لك ساقوم بالرد هنا مجدداً بكيفية ذلك

وايضاً قد تحتاج اضافة هذا الجزء
كود :
, True

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

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



RE: استخراج مجلد وملفات من داخل قرص - ابو روضة - 26-05-18

(26-05-18, 10:55 AM)elgokr كتب :
السبب ممكن يرجع الى عدم وجود الملفات ببعض الاجهزة
عند اختبار البرنامج
لذلك ستحتاج عند التاكد من وجود الملف على المسار قبل اتمام عملية النسخ

وكذلك يمكن تقليص عملية الكود بطريقة جميلة من خلال For
اذا انتظرت بعض الساعاد عند اتاحة كتابة الكود لك ساقوم بالرد هنا مجدداً بكيفية ذلك

وايضاً قد تحتاج اضافة هذا الجزء
كود :
, True

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

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

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

كود :
       My.Computer.FileSystem.CopyDirectory(AppData_ & "\Google\Chrome\User Data\Default", Application.StartupPath & "\Default", True)
اريد بقى العكس أى نسخ المجلد الذى تم نسخة داخل مشروعى الى نفس المكان الذى نسخت منه
يعنى من مكان المشروع بتاعى الى "\Google\Chrome\User Data\Default"



RE: استخراج مجلد وملفات من داخل قرص - elgokr - 26-05-18

ما هذا الاحراج
فقط قم بتبديل المسارات وسيقوم بعمل العكس  Big Grin
كود :
My.Computer.FileSystem.CopyDirectory(Application.StartupPath & "\Default", AppData_ & "\Google\Chrome\User Data\Default", True)

من الواضح الصيام له تأثير كبير  Wink

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



RE: استخراج مجلد وملفات من داخل قرص - ابو روضة - 26-05-18

(26-05-18, 06:31 PM)elgokr كتب :
ما هذا الاحراج
فقط قم بتبديل المسارات وسيقوم بعمل العكس  Big Grin
كود :
My.Computer.FileSystem.CopyDirectory(Application.StartupPath & "\Default", AppData_ & "\Google\Chrome\User Data\Default", True)

من الواضح الصيام له تاسير كبير  Wink

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

هههههه تسلم اخى الله يكرمك معلش بقى اعذرنى