افراغ سلة المحذوفات بالفيجوال بيسك 6

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

__________________
ما أجمل الأنسان الذي يتألم ولا يتكلم ويبكي ولا يصرخ ويحب ولا يجرح .