استخراج مجلد وملفات من داخل قرص - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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") وللمعرفة اكثر عن الموضوع
وحتى من حيث الحذف او اعادة التسمية او النقل يمكنك الاطلاع على الرابط التالى
فى القائمة الجانبية يوجد العديد من ما قد تريده
RE: استخراج مجلد وملفات من داخل قرص - ابو روضة - 26-05-18 (26-05-18, 02:18 AM)elgokr كتب : تسلم اخى لكنى اريد نسخ كل هذا داخل المشروع " مجلد + ملفات ليست تكست "
RE: استخراج مجلد وملفات من داخل قرص - elgokr - 26-05-18 لو قمت بالاطلاع على الرابط ستجد كل ما ترده
وسبق ومت بذكر ذلك
ولكن لتبسيط الامر اكثر
بخصوص نقل الملفات
مع كل ملف قم بتكرار سطر النسخ واللصق مثال على الكود كود : My.Computer.FileSystem.CopyFile("C:\UserFiles\TestFiles\testFile1.txt", Application.StartupPath & "\testFile1.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 كتب : الله يسعدك أخى الكريم ويبارك بعمرك...
المجلد تم نسخه بنجاح لكن الملفات مش عارف ليه مش بتتنسخ ؟ يمكن عشان انت سهلت عمليه نسخ المخلد فى خطوة ففهمتها مباشرة ؟ ما ينفعش اعملها حلقة تكرارية استخرج من مجلد Defaultأى ملف؟ اعتذر لحضرتك RE: استخراج مجلد وملفات من داخل قرص - elgokr - 26-05-18 السبب ممكن يرجع الى عدم وجود الملفات ببعض الاجهزة
عند اختبار البرنامج
لذلك ستحتاج عند التاكد من وجود الملف على المسار قبل اتمام عملية النسخ
وكذلك يمكن تقليص عملية الكود بطريقة جميلة من خلال For
اذا انتظرت بعض الساعاد عند اتاحة كتابة الكود لك ساقوم بالرد هنا مجدداً بكيفية ذلك
وايضاً قد تحتاج اضافة هذا الجزء كود : , True عند نسخ الملفات كما هو موجود فى كود نسخ المجلد
لتاكيد عملية النسخ والموافقة على الاستبدال او اى رسالة تاكيد
تحياتى لك
وتمنياتى لك التوفيق
RE: استخراج مجلد وملفات من داخل قرص - ابو روضة - 26-05-18 (26-05-18, 10:55 AM)elgokr كتب : تسلم استاذى الكريم ربنا يكرمك... انا نسخت المجلد كامل بهذا الكود بتاع حضرتك مع تغير المسار فقط كود : My.Computer.FileSystem.CopyDirectory(AppData_ & "\Google\Chrome\User Data\Default", Application.StartupPath & "\Default", True) RE: استخراج مجلد وملفات من داخل قرص - elgokr - 26-05-18 ما هذا الاحراج
فقط قم بتبديل المسارات وسيقوم بعمل العكس كود : My.Computer.FileSystem.CopyDirectory(Application.StartupPath & "\Default", AppData_ & "\Google\Chrome\User Data\Default", True) من الواضح الصيام له تأثير كبير
تحياتى لك
وتمنياتى لك التوفيق
RE: استخراج مجلد وملفات من داخل قرص - ابو روضة - 26-05-18 (26-05-18, 06:31 PM)elgokr كتب : هههههه تسلم اخى الله يكرمك معلش بقى اعذرنى
|