حذف جميع الملفات الموجودة بمجلد معين

[زياد علي]

السلام عليكم

بسم الله

والصلاة والسلام على رسول الله

بالمرفق كود بسيط للغاية ،،، وهو يقوم بمسح جميع الملفات الموجودة ضمن مجلد معين تحدد مساره كما تريد،،،

ضع المجلدtest في القرص c وشغل ملف الاكسيل المرفق من اي مكان بالجهاز ،،،

Private Sub CommandButton1_Click()

Kill "c:\test\*.*"

End Sub

مودتي واحترامي للجميع

حذف جميع الملفات بمجلد معين.rar

تم تعديل ديسمبر 18, 2009 بواسطه ziad ali

[amir501]

مشكور اخي زياد ؟؟؟؟؟

الكود لايعمل كما في الصورة المرفقة علما انه انشات ملف اسمة test

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

أخي ziad ali

كود جميل بارك الله فيك و زادك الله من علمة ونورة

= = = = = = = = =

اخي امير

اولا يجب انشاء مجلد اسمة Test في محرك الأقراص C: مباشرة

وضع به اي ملفات لا تريدها

ثم جرب الكود

سوف يعمل بإذن الله تعالى

تحياتي و تقديري

[زياد علي]

السلام عليكم

تم تعديل ديسمبر 18, 2009 بواسطه ziad ali

[زياد علي]

السلام عليكم

اخي عامر

اخي احمد يعقوب

لقد شرفتوني بمروركم الكريم

وجزاك الله اخي احمد كل خير على التوضيح لأخونا عامر ،،،

================================================================

حول ذات الموضوع ،،،

وبطريقة اخرى ممكن كتابة المسار داخل خلية واسناد قيمة الخلية - مسار الملف - لمتغير x

Private Sub CommandButton1_Click()

x = Sheets("Sheet1").Range("E1").Text

Kill (x)

End Sub

وبهذا تكون العملية اسهل ،،،

مودتي وتقديري للجميع

حذف جميع الملفات بمجلد معين2.rar

تم تعديل ديسمبر 18, 2009 بواسطه ziad ali