تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استخراج مجلد وملفات من داخل قرص
#1
السلام عليكم ورحمة الله وبركاته...
اخوتى يوجد على القرص c  مجلد وكذا ملف فى فولدر معين 
اريد استخراجهم كملف rar داخل مشروعى فكيف يتم عمل هذا الله يكرمكم.؟
أى أريد استخراج هذا المجلد وهذه الملفات بجانب المشروع كملف وين رار

مش مهم بصيغة وين رار اريد استخراجهم فقط داخل مشروعى
الرد }}}
تم الشكر بواسطة:
#2
الامر بسيط اخى الفاضل
كل ما ستحتاج اليه هو كود عمل نسخ ملف من مكان الى اخر
اذا كنت تحتاج من غير ضغط الملفات يمكنك تطبيق التالى

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

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

فى القائمة الجانبية يوجد العديد من ما قد تريده
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


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

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

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

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

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

الرد }}}
تم الشكر بواسطة:
#4
لو قمت بالاطلاع على الرابط ستجد كل ما ترده
وسبق ومت بذكر ذلك

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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابو روضة
#5
(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أى ملف؟
اعتذر لحضرتك
الرد }}}
تم الشكر بواسطة:
#6
السبب ممكن يرجع الى عدم وجود الملفات ببعض الاجهزة
عند اختبار البرنامج
لذلك ستحتاج عند التاكد من وجود الملف على المسار قبل اتمام عملية النسخ

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

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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابو روضة
#7
(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"
الرد }}}
تم الشكر بواسطة:
#8
ما هذا الاحراج
فقط قم بتبديل المسارات وسيقوم بعمل العكس  Big Grin
كود :
My.Computer.FileSystem.CopyDirectory(Application.StartupPath & "\Default", AppData_ & "\Google\Chrome\User Data\Default", True)

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


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

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

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

هههههه تسلم اخى الله يكرمك معلش بقى اعذرنى
الرد }}}
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 304 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 190 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
  استخراج الشهر الهجري kebboud 2 258 04-12-23, 07:51 PM
آخر رد: kebboud
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 460 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  يوجد مشكلة عند تحميل البيانات فى كمبوبوكس داخل داتا جريد new_programer 2 473 17-10-23, 06:51 PM
آخر رد: new_programer
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61
  اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين moh61 6 695 26-07-23, 05:47 AM
آخر رد: Taha Okla
  اريد تغير حجم ال Panel عند التفيذ من داخل الكود moh61 2 403 23-07-23, 12:22 AM
آخر رد: أبووسم
  مساعدة كتابة التاريخ داخل داتا جريد فيو كريم عبودي 2 523 22-06-23, 12:28 AM
آخر رد: كريم عبودي
  يرجي التعديل على المثال - تعبءة الكمبوبوكس داخل الجريد بانواع الوحدات new_programer 3 800 14-04-23, 05:31 PM
آخر رد: new_programer

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم