افراغ سلة المحذوفات

[عنـ الشوق ـاد]

افراغ سلة المحذوفات

يقوم هذا الاجراء بالأعتماد على API ولكن من shell32.dll هذه المرة :

ضع هذا الكود في العام General او موديول Module :

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

لافراغ سلة المحذوفات

SHEmptyRecycleBin Me.hwnd, vbNullString, 0

للتحديث بعد افراغ البيانات

SHUpdateRecycleBinIcon