السلام عليكم ورحمةالله وبركاته
يا جماعة أريد كود يحذف مجلد بجميع محتوياته .
وجزاكم الله خيراً
كيف يحذف مجلد بجميع محتوياته
مغلق
تحية طيبة.......
اذهب الى قائمة Project ثم Reference وحدد المكتبة Microsoft Scripting Runtime
ثم اكتب هذا الكود
Private Sub Command1_Click() Dim FSO As New FileSystemObject FSO.DeleteFolder "C:\a" End Sub
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله وبركاته
كما قال اخي العزيز جوست ...و للفائدة اقول انه يمكنك ايضا استخدام نفس الشفرة السابقة للاخ العزيز جوست دون الحاجة إلى اضافة المكتبة Microsoft Scripting Runtime و ذلك بالإستفادة من الـ LateBinding و بالتالي الوصول الى نفس المكتبة مباشرة عن طريق الدالة CreateObject بالشكل التالي :
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder "C:\Folder"و كما سبق فان اجابة الاخ العزيز جزاه الله كل الخير ستفي بغرضك بإذن الله تعالى اما ما جاء في هذا الرد فهو للفائدة فقط
السلام عليكم و رحمة الله وبركاته
مواضيع برمجية تقنية جديدة
----------------------------------------------------------------------------------------------------------------------------------------------
• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج للبحث في الملفات ومحتواياتها (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
مواضيع برمجية تقنية قديمة
----------------------------------------------------------------------------------------------------------------------------------------------
• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NETVB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
بارك الله فيك أخي الكريم (( ghost2010 ، رغيد الطيب ))
وشكراً على المساعدة
تم تعديل هذه المشاركة بواسطة COMFORT في 10 مايو 2005 في 10:14
بسم الله
السلام عليكم
الأخ comfort ،
وإضافة إلى ما قاله الأخوان الكريمان جوست ورغيد الطيب يمكن إستخدام الكودين التاليين
كود إنشاء مجلد هو
MkDir (pathname)
Like
MkDir (d:\ahmed)
مع مراعاة أن الإسم الموجود داخل القوسين الكبيرين ، يوضع بين علامتي تنصيص " "
وكود الحذف هو
Kill(pathname)
Like
Kill (d:\ahmed)
مع مراعاة أن الإسم الموجود داخل القوسين الكبيرين ، يوضع بين علامتي تنصيص " "
ومرفق مع المشاركة ، نموذج لا يهمك منه إلا مفتاحي إضافة ، وحذف فقط ،
والله أعلى وأعلم
جزاك الله خيرأخي الكريم ( أبو مهاجر )
لكن أخي الكريم تظهر لي رسالة بها File Not Found
مع أن الملف موجود وبنفس الأسم
Kill ("D:\ahmed")تم تعديل هذه المشاركة بواسطة COMFORT في 11 مايو 2005 في 09:35
اخى الفاضل ابو المهاجر
الامر Kill لايستخدم الا مع الملفات اما امر حذف مجلد هو RMDir لكنه لايصلح هنا لانه لايعمل اذا كان داخل المجلد مجلد اخر وبالتالى الكود الذى ارفقته خاطئ ولكن شكراً على المحاولة :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
هذا اسهل كود
اذا كنت تريد حذف امتداد معين يمكنك تغير الامتداد
هذا يقوم بحذف جميع الملفات التي تكون بالمجلد m
kill "c\m\*txt"
آسف غلطت بالكود
وهو يقوم بحذف جميع الملفات التي تكون بامتداد txt
Call Kill (“C:\WINDOWS\*.txt”)
هذا الموضوع مغلق.