Ejemplos usando el Api de windows para Visual basic

125 - Vaciar la papelera de reciclaje

Volver al Listado Api - Anterior - Siguiente

La función Api que permite eliminar el contenido de la papelera de reciclaje se llama SHEmptyRecycleBin.

El uso es muy simple y en el código está comentado como funciona

Código fuente en un form con un Command1

Option Explicit 'Declaración del Api SHEmptyRecycleBin Private Declare Function SHEmptyRecycleBin Lib "shell32" Alias _ "SHEmptyRecycleBinA" (ByVal hwnd As Long, _ ByVal pszRootPath As String, ByVal dwFlags _ As Long) As Long 'Constantes Const SHERB_NOCONFIRMATION = &H1 'Sub para ejecutar SHEmptyRecycleBin para vaciar la papelera de reciclaje Private Sub vaciar_Papelera(Optional ByVal Unidad As String, _ Optional ByVal Dialogo_Confirmar As Boolean) Dim Flags As Long ' Si se pasa este parámetro, pregunta antes de vaciarla If Dialogo_Confirmar Then Flags = SHERB_NOCONFIRMATION End If On Error Resume Next Call SHEmptyRecycleBin(0, Unidad, Flags) End Sub 'Por ejemplo para eliminar todos los archivos de la papelera _ que pertenecen a la partición c: _ ' -->> Call vaciar_Papelera("c:") ' Sino se pasa un parámetro en unidad, se elimina _ todo el contenido Private Sub Command1_Click() Call vaciar_Papelera("c:") End Sub Private Sub Form_Load() Command1.Caption = " Vaciar " End Sub

Enlaces relacioandos a papelera

Cambiar el nombre

Buscar en Recursos vb