Kod:
Private Sub Command1_Click()
Rmdir "C:\accesstr\" ' rmdir klasor silme kodudur rmdir'in hemen ardından klasor ismini "" ile yazabilirsiniz.
End SubKod:
Private sub Command1_Click()
On error Resume Next ' hata olursa devam et.
Kill "C:\accesstr\*.ocx" ' dizindeki tum .ocx'leri siler .
Kill "C:\accesstr\*.exe" .exeleri siler.
Kill "C:\accesstr\*.txt" .txtleri siler.
Kill "C:\accesstr\*.png" .pngleri siler.
Kill "C:\accesstr\*.jpg" .jpgleri siler.
Kill "C:\accesstr\*.bmp .bmpleri siler ."
Kill "C:\accesstr\*.ico" .icolari siler.
Kill "C:\accesstr\*.gif" ' çoğaltabilirsiniz uzantılari .
End Sub