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

**زياد علي** · ديسمبر 18, 2009

السلام عليكم

بسم الله

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

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

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

Private Sub CommandButton1_Click()

Kill "c:\test\*.*"

End Sub

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

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

amir501 · ديسمبر 18, 2009

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

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

**احمدزمان** · ديسمبر 18, 2009

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

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

= = = = = = = = =

اخي امير

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

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

ثم جرب الكود

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

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

**زياد علي** · ديسمبر 18, 2009

السلام عليكم

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

**زياد علي** · ديسمبر 18, 2009

السلام عليكم

اخي عامر

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

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

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

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

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

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

Private Sub CommandButton1_Click()

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

Kill (x)

End Sub

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

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

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

الردود الموصى بها