[محمد ايمن]

(04-07-20, 06:04 PM)سامي محمد كتب : وعليكم السلام ... تفضل

كود :

  For Each x As String In My.Computer.FileSystem.GetFiles("C:\Users\Sami\Desktop\1")
            IO.File.Delete(x)
        Next

مشكور اخي 
ممكن ب الكود صنع برنمج مسح فيروسات و و و شكران