17-10-12, 12:21 AM
كاتب الموضوع : 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