Kode VB6 Yang Berfungsi Untuk Menghancurkan Sebuah File

Pada artikel kali ini Admin akan berbagi tips dan trik yaitu sebuah kode vb6 yang berfungsi untuk menghancurkan sebuah file, maksudnya adalah file yang telah dihapus atau dihancurkan tidak dapat di recovery dengan software-software recovery.

Berikut adalah cara penggunaan untuk menghancurkan file pada VB6 :

Anda cukup menambahkan sebuah Commanbutton pada form, lalu ketik kode dibawah ini :

Option Explicit

Public Function DestroyFile(Filename As String)

    Open Filename For Output As #1

        Print #1, "Sorry, destroyed....."

    Close #1

End Function

Private Sub Command1_Click()

    Call DestroyFile("D:\bola.jpg")

MsgBox "File telah dihancurkan", vbCritical, "Informasi"

End Sub

Dalam artikel kali ini admin akan memberi contoh sebuah file image gambar bola yang berlokasi di D seperti yang ada pada kode berwarna merah yang akan dihancurkan

Setelah itu jalankan porgram anda dan tekan tombol Commandbutton untuk menghancurkan sebuah file yang Anda sudah tentukan.

Setelah anda menghancurkan file coba priksa file yang anda hancurkan apakah masih bisa digunakan dan direcovery kembali?

Demikian tips dan trik singkat dari saya tentang Kode VB6 Yang Berfungsi Untuk Menghancurkan Sebuah File, semoga artikel inibermanfaat buat kita semua.Amin.

Selamat mencoba semoga berhasil

Related Post: File Directory