حذف ملف

الأمر الذى نحن بصدده الآن من أكثر الأوامر خطورة :shutup00: , فما فعلناه سابقا هو نسخ ملفات و نقلها و إعاده تسميتها , إنما الأمر التالى خطير جدا حيث أنه يقوم بحذف الملف نهائيا , أى لا يمكنك الضغط على Ctrl+Z ليعود إليك :no000000: , أو تقوم بالبحث عنه فى Recycle Bin لتسترجعه :crazy000:

الحذف هنا نهائى , فيرجى توخى الحزر فى التعامل مع هذا الأمر :msn-wink:

لحذف ملف نستعمل Kill و يبدو من الإسم خطورته :shutup00:

و التى تكتب بالطريقه

Kill PathName

و كما قلنا سابقا عن الـ PathName يمكن كتابته كاملا أو إسم الملف فقط (راجع نسخ ملف)

دعونا نقتل بعض الملفات :shutup00:

Private Sub Command1_Click()
Kill "C:\Project\B.txt"
End Sub

كما يظهر لنا فعند الضغط على الزر Command1 فإن نظام التشغيل يبحث عن الملف B.txt فى المسار C:\Project و إذا وجده فيقتله :shutup00:

دعونا نزيد من خطورة الأمر :dumbbells:

قم بإنشاء مجلد جديد داخل مجلد Project بإسم Delete مثلا



ثم قم بإنشاء ملفات ذات إمتدادات مختلفه r*.bmp , r*.txt , r*.zip مثلا

لحذف جميع الملفات ذات إمتداد معين كـ r*.txt يمكنك إستبدال إسم الملف بالإمتداد , و يمكننا رؤية ذلك فى الكود التالى :

Private Sub Command2_Click()
Kill "C:\Project\Delete\*.txt"
End Sub

الآن عند الضغط على الزر Command2 يقوم نظام التشغيل بحذف جميع الملفات ذات الإمتداد r*.txt



و لحذف جميع الملفات المسماه بإسم معين و مختلفه الإمتدادات يمكن إستبدال إسم الملف بـ r1.*r كما فى الكود التالى

Private Sub Command3_Click()
Kill "C:\Project\Delete\1.*"
End Sub

و فى الكود السابق عند الضغط على الزر Command3 يقوم نظام التشغيل بحذف جميع الملفات المسماه 1 بإختلاف إمتداداتها



ماذا عن حذف جميع الملفات ؟

أظن أنكم إستنتجتم الكود , بالطبع سنقوم بإستبدال إسم الملف بـ*.*



و لا تتفقد الـ Recycle Bin لإنهم قد ذهبوا بلا رجعه :shutup00:

____________________________


انتهى الدرس انشاء الله تعم الفائده على الجميع


تحياتي