[Risky]

كود :

If CheckBox1.Checked = True Then
           Dim txtFilesArray As String() = IO.Directory.GetFiles("path", "*.*")

           For Each p In txtFilesArray
               IO.File.Delete(p)
           Next

       End If

       If CheckBox2.Checked = True Then
           Dim txtFilesArray1 As String() = IO.Directory.GetFiles("path", "*.*")

           For Each p In txtFilesArray1
               IO.File.Delete(p)
           Next
       End If

شكراً لك [b]elgokr تم الحل بالطريقه هذي[/b] ..