وعليكم السلام ورحمة الله وبركاته
فى البداية لاتمام حذف الملفات بطريقة الحذف النهائي
او الحذف بارسال الملف الى سلة المحذوفات فاتبع الرابط التالى
ناتى الان الى كيفية استخدام الكود الموضح بالاعلى خاصة
كود :
Dim dirs() As System.IO.DirectoryInfo = {New System.IO.DirectoryInfo("PATH1"), New System.IO.DirectoryInfo("PATH2"), New System.IO.DirectoryInfo("PATH3")}
For Each dr In dirs
For Each fn As System.IO.FileInfo In dr.GetFiles
System.IO.File.Delete(fn.FullName)
Next
Next
لنقول ان لدى CheckBox وظيفته مثل موافقة الشروط والاحكمام
وهو عبارة عن عند الموافقة على الشروط سيتم حذف الملف نهائياً
هنا اليك اكثر من طريقة للاستخدام
وهو ان تجعل الـ Button من خصائصه Enabled بقيمة False
وعند تحديد علامة صح على CheckBox يقوم بتحويل الـ Button لخصائصه Enabled الى True
وهو من خلال الكود التالى
كود :
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
Button1.Enabled = True
Else
Button1.Enabled = False
End If
End Sub
الى هنا لا يوجد مشكلة الان بكده انت ليس بحاجة الى التعديل على الكود الخاص بك
طيب اذا كنت لا اريد استخدام هذه الطريقة واريد مباشر من خلال كود الـ Button
فكل ما عليك جعل الكود بهذا الشكل
كود :
Dim dirs() As System.IO.DirectoryInfo = {New System.IO.DirectoryInfo("PATH1"), New System.IO.DirectoryInfo("PATH2"), New System.IO.DirectoryInfo("PATH3")}
For Each dr In dirs
For Each fn As System.IO.FileInfo In dr.GetFiles
If CheckBox1.Checked = True Then
System.IO.File.Delete(fn.FullName)
End If
Next
Next
اتمنى ان تكون الصورة وضحت لك كاملاً
واتمنى ان الرابط بالاعلى يفيدك ايضاً للتعامل مع حذف الملفات
تحياتى لك
وتمنياتى لك التوفيق