[Risky]

أنا استخدمت هذا الامر

كود :

Dim dirs() As DirectoryInfo = {New DirectoryInfo(

كود :

"PATH1"

كود :

), New DirectoryInfo(

كود :

"PATH2"

كود :

), New DirectoryInfo(

كود :

"PATH3"

كود :

)}

كود :

        

كود :

For Each dr In dirs

كود :

            

كود :

For Each fn As FileInfo In dr.GetFiles

كود :

                

كود :

File.Delete(fn.FullName)

كود :

            

كود :

Next

كود :

        

كود :

Next

لكن ماعرفت اخصصها في اداه لحالها واضيفها هنا CheckBox