Cara Mengosongkan Recycle Bin dari Excel dengan Macro VBA
Menyambung pembahasan kita, masih tentang cara menggunakan API Windows dengan VBA Excel yang telah didahului postingan Cara Menghapus Clipboard Windows dari Excel dengan Macro VBA, kali ini kita akan mengendalikan Recycle Bin pada Windows melalui tip singkat berikut.
Kode macro berikut bernama RecycleBinKosong yang fungsinya mampu mengosongkan keranjang sampah di komputer Anda.
Saat kode macro dengan Fungsi API bernama EmptyRecycleBin ini dijalankan maka akan memunculkan kotak dialog Delete Multiple Items berupa pilihan konfirmasi Yes atau No atas pertanyaan Are you sure you want to permanently delete all of these items?
Silakan Anda ketik kode macro berikut pada module:
Lib "shell32.dll" Alias "SHEmptyRecycleBinA" _
(ByVal hwnd As Long, _
ByVal pszRootPath As String, _
ByVal dwFlags As Long) As Long
Sub RecycleBinKosong()
Dim A As Long
A = EmptyRecycleBin(0&, vbNullString, 1&)
End Sub
Khusus bagi Anda sebagai pengguna Windows 64-bit agar kode macro dapat bekerja maka Anda perlu mengunduh sebuah file Win32API_PtrSafe agar dapat mendukung versi 64-bit yang bisa didapat melalui link ini kemudian silakan Anda ubah kode macro di atas dengan kode berikut:
Alias "SHEmptyRecycleBinA" ( _
ByVal hwnd As Long, _
ByVal pszRootPath As String, _
ByVal dwFlags As Long) As Long
Sub RecycleBinKosong()
Dim A As Long
A = EmptyRecycleBin(0&, vbNullString, 0&)
End Sub
Mulai dari versi 2010 kemudian dilanjutkan dengan versi 2013, Anda dapat memasang Excel dengan aplikasi 64-bit jika Anda menggunakan OS Windows versi 64-bit dalam komputer Anda.
Kebanyakan pengguna Excel cenderung memakai versi 32-bit karena memiliki keunggulan tersendiri, begitu pula versi 64-bit yang dapat bekerja dengan jumlah data yang sangat besar.
Dalam banyak kasus, deklarasi API 32-bit akan cocok dengan versi 64-bit dengan cara menyertakan PtrSafe setelah kata kunci Declare.
Anda tidak perlu membuat dua file workbook, namun Anda cukup menuliskan declare fungsi API Anda sebanyak dua kali, menggunakan statement If...Then...Else agar kode dapat didukung oleh kedua versi seperti yang telah dijelaskan pada postingan Tips Membuka File Database Access dari Excel dengan Macro VBA.
Dikarenakan Excel 64-bit relatif baru diperkenalkan, kemungkinan nuansanya akan lebih sedikit sulit untuk diingat sebagaimana sintaks-nya, contohnya versi Excel sebelum 2010 termasuk versi 2007 tidak akan mengenali kata kunci seperti PtrSafe.
Demikian Cara Menghapus Isi Recycle Bin dari Excel dengan Macro VBA, Silakan Anda coba praktekkan sendiri dan semoga bermanfaat.