Fungsi Untuk Menghancurkan File

Di bawah ini merupakan fungsi untuk menghancurkan file. Maksud dari fungsi ini, agar file yang sudah dihapus/dihancurkan, tidak dapat direcover dengan software-software recovery.
Core function dari fungsi penghancur file ini hanyalah 3 line code, yaitu:

Open Filename For Output As #1 
        Print #1, "Sorry, destroyed....." 
Close #1 

Adapun fungsi lengkapnya serta cara penggunaannya:

Option Explicit 
 
Public Function DestroyFile(Filename As String) 
    Open Filename For Output As #1 
        Print #1, "Sorry, destroyed....." 
    Close #1   
End Function 

Cara penggunaan Fungsi Untuk Menghancurkan File

Private Sub Command1_Click() 
    Call DestroyFile("C:\hancur.jpg") 
End Sub 

Di atas merupakan cara penggunaan yang sederhana, dalam kenyataannya Anda dapat memodifikasi penggunaan, sehingga bisa digunakan untuk bulk files destroyer.