تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] حماية ملف الdll من استخراج الاكواد mohamed haroon 9 1,649 17-06-19, 07:51 PM
آخر رد: black coder
  [سؤال] حذف مرفقات من مجلد المرفقات mr_hso 11 252 12-06-19, 03:30 PM
آخر رد: zinom
  كيفية استخراج بيانات من اكثر من جدول وطباعتها المتألق9 4 241 12-06-19, 11:41 AM
آخر رد: new2016
  [ تمّ الحل ] : إختفاء الأدوات داخل الفورم عبد العزيز البسكري 7 208 10-06-19, 02:05 PM
آخر رد: sendbad100
Information [سؤال] كيفية جعل المشروع يحفظ الملفات في مجلد بالحاسوب مهما تغيير مكان تنصيب المشروع الرائد 3 115 09-06-19, 05:21 AM
آخر رد: ابراهيم ايبو
  [سؤال] كيف يمكنني الحصول علي رابط داخل كود جافا من خلال الويب براوزر dametucorazon 0 76 11-05-19, 06:10 AM
آخر رد: dametucorazon
Photo مطلوب كود لتقسيم نص لعدة نصوص من داخل ملف نصي Top King 8 271 07-05-19, 06:15 PM
آخر رد: asemshahen5
  سورس كود لوضع زر امر داخل الداتا جريد فيو احمد129 2 189 01-05-19, 12:45 PM
آخر رد: DK-x
  [VB.NET] حفظ ما في listview داخل settings trakktour 2 187 30-04-19, 02:33 AM
آخر رد: trakktour
  [سؤال] حفظ الملف داخل الفولدر mostafa nada 4 204 24-04-19, 04:37 PM
آخر رد: mostafa nada

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


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