Cara Menghapus atau Mengosongkan File Yang Ada di RecycleBin Melalui VB6

Cara Menghapus atau Mengosongkan File Yang Ada di RecycleBin Melalui VB6 - Kali ini tip dan trik akan akan membahas sebuah tip dari program bawaan window yaitu Cara Menghapus atau Mengosongkan File Yang Ada di RecycleBin. File-file  yang kita hapus dari komputer kita akan tersimpan di dalam Recycle Bin. Recycle Bin adalah folder spesial yang bisa mengembalikan file yang telah Anda hapus.

Recycle Bin pertama kali dapat kita temukan di Windows 95, RecycleBin juga disebut sebagai tempat sampah, karena berisi file-file yang Anda buang atau hapus dari komputer Anda.

Agar kompueter kita labih hemat dalam pemakaian hardiak maka kita perlu memilah dan memilih file-file mana saja yang masih diperlukan,ketika ada file yang tidak diperlukan maka demi menghemat ruang sisa hardisk, kita harus menghapus file tersebut.File yang kita hapus  tadi akan tersimpam dalam sebuah folder yang bernama RecycleBin, lalu apakah dengan menghapus file tersebut lantas akan hilang tentu tidak yang pasti akan tersimpan di RecycleBin. Ketika RecycleBin sudah menumpuk karena penghapusan file disitulah kita harus menghapusnya secara permanen. Dan perlu Anda ketahui RecycleBin juga mempunyai ambang batas penyimpanan ketika sudah menumpuk tidak muat untuk menyimpannya maka RecycleBin akan menghapus secara otomatis.

Untuk lebih jelasnya perhatikan langkah-langkah berikut :

Cara Menghapus File Yang Ada di RecycleBin melalui VB6

1. Buka Form VB6 Anda dan tambahkan  1 CommandButton di Form

2. Kemudian ketik kode berikut dibawah ini :

Option Explicit

Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hWnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long

Const SHERB_NOCONFIRMATION = &H1

Const SHERB_NOPROGRESSUI = &H2

Const SHERB_NOSOUND = &H4

Public Sub EmptyRecycleBin(frm As Form)

    Dim RetVal

    RetVal = SHEmptyRecycleBin(frm.hWnd, "", SHERB_NOPROGRESSUI + SHERB_NOCONFIRMATION)

End Sub

Private Sub Command1_Click()

EmptyRecycleBin Me

End Sub

3. Jalankan program kemudian tekan commandbutton, maka isi (jika ada) dari RecycleBin akan terhapus dan kosong.

Demikian tip Cara Menghapus atau Mengosongkan File Yang Ada di RecycleBin Melalui VB6. Selamat mencoba semoga berhasil.

Related Post: Tools Windows