Menghapus Seluruh File Yang Ada Dalam Recycle Bin

Di bawah ini merupakan fungsi untuk menghapus seluruh file yang terdapat pada recycle bin. Bagaimana implementasinya dalam Visual Basic 6.0? bisa Anda simak kodenya di bawah 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 

Contoh pengunaan procedure di atas

Private Sub Command1_Click() 
    EmptyRecycleBin Me 
End Sub