Posts: 111 Joined: 08.07.08 Location: Medan, Sumatra Utara Age: 36
Pengen bikin program sendiri buat ngehapus file-file yang ada di recycle bin? jangan tanya ya, ini sekedar share aja..
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 koding dibawah, atau copy paste ja 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
thanks bgt untuk sharing VBnya bro...kirim lagi tipstips yg banyak ya. artikelnya blm gw coba (vbnya blm di install ).
Nabi Muhammad SAW bersabda :” Barangsiapa Yang Mengamalkan Ilmu Yang Ia Ketahui Maka Allah Akan Memberikan Kepadanya Ilmu Yang Belum Ia Ketahui” (HR. Imam Ahmad).
coding untuk mengosongkan recyclebin ...
).
