Source Code Mengosongkan RecycleBin

Pengen bikin program sendiri buat ngehapus file-file yang ada di recycle bin? Tanpa harus masuk explorer, alias bereksperimen sendiri? Gampang, neh ada source code yang bisa kalian pake buat nambah-nambah elmu and skill...heheh...mulai aja deh..

Ketikan code ini pada Module
Const SHERB_NOCONFIRMATION = &H1
Const SHERB_NOPROGRESSUI = &H2
Const SHERB_NOSOUND = &H4

Private Type ULARGE_Integer
LowPart As Long
HighPart As Long
End Type

Private Type SHQUERYRBINFO
cbSize As Long
i64Size As ULARGE_Integer
i64NumItems As ULARGE_Integer
End Type

Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" _
Alias "SHEmptyRecycleBinA" (Byval hwnd As Long, _
Byval pszRootPath As String, Byval dwFlags As Long) As Long
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long
Private Declare Function SHQueryRecycleBin Lib "shell32.dll" Alias _
"SHQueryRecycleBinA" (Byval pszRootPath As String, _
pSHQueryRBInfo As SHQUERYRBINFO) As Long

Tambahkan satu buah form, kemudian ketikan source code dibawah, atau kalian bisa men-copy pastenya langsung :

Private Sub Form_Load()
Dim RBinInfo As SHQUERYRBINFO, Msg As VbMsgBoxResult
RBinInfo.cbSize = Len(RBinInfo)
SHQueryRecycleBin vbnullString, RBinInfo
Msg = MsgBox("Kosongkan Recycle Bin?", vbYesNo + vbQuestion)
If Msg = vbYes Then
SHEmptyRecycleBin Me.hwnd, vbnullString, 0
SHUpdateRecycleBinIcon
End If
End Sub