[Visual Basic.NET] Mengosongkan Recycle Bin jika sampah sudah penuh

Recycle Bin menyediakan pengaman saat menghapus file atau folder. Ketika menghapus salah satu item dari hard disk, Windows menempatkannya di Recycle Bin dan Recycle Bin ikon berubah dari kosong sampai penuh. Item yang dihapus dari floppy disk atau drive akan dihapus secara permanen dan tidak dikirim ke Recycle Bin.

Item dalam Recycle Bin tetap di sana sampai pemilik memutuskan untuk menghapusnya secara permanen dari komputer. Item ini masih mengambil ruang hard disk dan dapat terhapus atau dikembalikan kembali ke lokasi semula. Ketika mengisi, Windows secara otomatis membersihkan keluar cukup ruang dalam Recycle Bin untuk menampung file yang paling baru-baru ini dihapus dan folder.

Jika Anda kehabisan ruang hard disk, selalu ingat untuk mengosongkan Recycle Bin. Anda juga dapat membatasi ukuran Recycle Bin untuk membatasi jumlah ruang hard disk tidak memakan.

Windows mengalokasikan satu Recycle Bin untuk setiap partisi atau hard disk.

Kunjungi juga contoh aplikasi laporan CRUD disini

Visual Basic.NET] Mengosongkan Recycle Bin jika sampah sudah penuh

Tampilan desain

Visual Basic.NET] Mengosongkan Recycle Bin jika sampah sudah penuh

Komponen yang dibutuhkan

• PictureBox
• Label

Untuk code program bisa dilihat dibawah ini

Public Class Form1

Private Declare Function SHEmptyRecycleBin Lib “shell32.dll” Alias “SHEmptyRecycleBinA” (ByVal hWnd As Int32, ByVal pszRootPath As String, ByVal dwFlags As Int32) As Int32

Private Declare Function SHUpdateRecycleBinIcon Lib “shell32.dll” () As Int32

Private Const SHERB_NOCONFIRMATION = &H1

Private Const SHERB_NOPROGRESSUI = &H2

Private Const SHERB_NOSOUND = &H4

#Region “Empty Recycle Bin (SUB)”

Private Sub EmptyRecycleBin()

SHEmptyRecycleBin(Me.Handle.ToInt32, vbNullString, SHERB_NOCONFIRMATION + SHERB_NOSOUND)

SHUpdateRecycleBinIcon()

End Sub

#End Region

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

EmptyRecycleBin()

End Sub

End Class