[RaggiTech]

كاتب الموضوع : AhmedEssawy

يقوم هذا الاجراء بالأعتماد على 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