[elgokr]

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

فى البداية لاتمام حذف الملفات بطريقة الحذف النهائي 

او الحذف بارسال الملف الى سلة المحذوفات فاتبع الرابط التالى

https://docs.microsoft.com/en-us/dotnet/...ete-a-file

ناتى الان الى كيفية استخدام الكود الموضح بالاعلى خاصة

كود :

       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

اتمنى ان تكون الصورة وضحت لك كاملاً

واتمنى ان الرابط بالاعلى يفيدك ايضاً للتعامل مع حذف الملفات

تحياتى لك

وتمنياتى لك التوفيق