ciao usa questo codice per svuotare il cestino
'Dichiarazione delle funzioni dell'api e delle costanti
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hWnd As Int32, _
ByVal pszRootPath As String, _
ByVal dwFlags As Int32) As Int32
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Int32
Private Const SHERB_NOCONFIRMATION = &H1
Private Const SHERB_NOPROGRESSUI = &H2
Private Const SHERB_NOSOUND = &H4
'procedura che svuota il cestino
Private Sub EmptyRecycleBin()
SHEmptyRecycleBin(Me.Handle.ToInt32, vbNullString, SHERB_NOCONFIRMATION + HERB_NOSOUND)
SHUpdateRecycleBinIcon()
End Sub
per usare il comando basta inserire il comando EmptyRecycleBin() in un semplice pulsante
Ciao faraoman
|