VB6 Code - Fungsi Untuk Menghancurkan File

Di bawah ini merupakan fungsi VB6 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.