كود تلقائي لحذف مجلد محدد المسار

[ابوالزوز]

السلام عليكم ،،

أخواني الأعزاء .. كيف لي حذف مجلد ممتلىء بمجلدات أخرى وملفات بشكل تلقائي وسريع حيث أنني حاولت

استخدام الكود RMDIR للمجلدات الفارغة ، والكود KILL للملفات إلا أنني

أجد صعوبة في تطبيق ذلك لكل مجلد وكل ملف على حدة

لذا أرجو منكم أخواني إفادتي بطريقة تحذف تلقائياً المجلد الرئيسي سواء كان ممتلىء أو فارغ

أرجو أن أكون قد وفقت في ايصال الفكرة

وشكراً لكم جميعاً

تقبلوا تحياتي ..

[ابوالزوز]

السلام عليكم ،،

أخواني الأعزاء .. وجدتها وجدتها وجدتها ---------- وإليكم الحل

MyFldr= "abuzzouz"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.deletefolder("C:\" & MyFldr, True)

مع تطبيق On Error GoTo

تقبلوا جميعاً تحياتي ..

تم تعديل مايو 15, 2008 بواسطه abuzzouz

[عادل حنفي]

اخي هذه معلومه جديده

اشكرك عليها

سلمت يداك

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

و ليس من الكود

فارجو ان يعجبك

Delet_folder.rar

تم تعديل مايو 15, 2008 بواسطه aah_aah2008

[ابوالزوز]

السلام عليكم ،،

عمل جميل أخي aah_aah2008 شكراً على مجهودك

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

تقبل تحياتي ..

تم تعديل مايو 16, 2008 بواسطه abuzzouz

[عادل حنفي]

اخي العزيز بل هي فكرتك وقمت انا بالاضافه عليها فقط