Code:
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As LongPrivate Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long
Private Sub Form_Load()
'La vide
SHEmptyRecycleBin Me.hwnd, vbNullString, 0
'La met à jour
SHUpdateRecycleBinIcon
End Sub
______________________________________________________
Un petit 'like' ? Pour ma page ? PLZZZZZ
Liste de mes DDL
