Instruccion para vaciar papelera de reciclaje

Luis,

Creo q se puede solamente usando llamadas API. Prueba este codigo.

Saludos,
KL

'Inicio Codigo-
Public Declare Function SHEmptyRecycleBin _
Lib "shell32" Alias "SHEmptyRecycleBinA" _
(ByVal hwnd As Long, _
ByVal pszRootPath As String, _
ByVal dwFlags As Long) As Long

Sub EmptyRecycleBin()
Const HWND_DESKTOP = 0
Const SHERB_NOCONFIRMATION = &H1
Const SHERB_NOPROGRESSUI = &H2
Const SHERB_NOSOUND = &H4
Dim Res As Long

Res = SHEmptyRecycleBin(HWND_DESKTOP, vbNullString, _
SHERB_NOCONFIRMATION + SHERB_NOPROGRESSUI + SHERB_NOSOUND)

End Sub
'Fin Codigo-


"Luis Menendez" wrote in message
news:uxDvf%23l%

Hola , quisiera saber que ejecutable es el que vacía la papelera de
reciclaje para utilizarlo en una macro.

Gracias.