FoxPro/Visual FoxPro - Como vaciar la papelera de reciclaje

Funcion para vaciar la papelera

FUNCTION VaciarPapelera(tcUnidad, tlNoPregunta)
IF EMPTY(tcUnidad)
tcUnidad = "C:" + CHR(0)
ENDIF
DECLARE INTEGER SHEmptyRecycleBin IN Shell32 ;
INTEGER HWND, ;
STRING @lpszRootPath, ;
INTEGER dwFlags
#DEFINE SHERB_NOCONFIRMATION 0x00000001
#DEFINE SHERB_NOPROGRESSUI 0x00000002
#DEFINE SHERB_NOSOUND 0x00000004
SHEmptyRecycleBin(0, tcUnidad, tlNoPregunta)
RETURN
ENDFUNC

Uhhh, yo pensaba que era mas facil con el boton derecho del mouse y luego dandole click "Vaciar Papelera"

JAJAJAJAJAAJ ESA ES BUENA DE PRINCIPIANTE PERO BUENA ---

HOY ES VIERNES :-)

a que plinio, siempre de buen humor...excelente el código Ernesto, Gracias por aportar esto a la comunidad.

Un Saludo desde Nuevo Laredo, Tam. México, de acá del Norte


Buen dia y Suerte►