Ejemplos usando el Api de windows para Visual basic

237 - Documentos recientes de windows

Ejemplo para eliminar la lista de documentos recientes de windows con el api

Contenido:

Ejemplo 1 ( Eliminar )
Ejemplo 2 ( Agregar )
Relacionados

Ejemplo 1

Ejemplo enviado por Ivo Scavuzzo, que usa el Api SHAddToRecentDocs para eliminar todos los accesos directos del menú documentos recientes en windows

menu documentos recientes de windows

Controles:

Colocar un control Commandbutton

Código fuente en el formulario

' api SHAddToRecentDocs ''''''''''''''''''''''''''''''''''' Private Declare Function SHAddToRecentDocs Lib "Shell32" ( _ ByVal lFlags As Long, _ ByVal lPv As Long) As Long ' Commandbutton que elimina la lista _ de documentos recientes de windows ''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() ret = SHAddToRecentDocs(0, 0) MsgBox "Lista de Docs Eliminados", vbInformation End Sub Private Sub Form_Load() Command1.Move 0, 0, 3000, Command1.Height Command1.Caption = "Vaciar Documentos Recientes" End Sub

Ejemplo 2

Este otro ejemplo del api Guide usa la misma Api, pero para agregar un documento a la lista. Lo que cambia, es que en el segundo parámetro de SHAddToRecentDocs, en ves de un Long se manda un String, indicando la ruta del archivo, y en el primer parámetro el valor 2

' api SHAddToRecentDocs ''''''''''''''''''''''''''''''''''' Private Declare Function SHAddToRecentDocs Lib "Shell32" ( _ ByVal lFlags As Long, _ ByVal lPv As String) As Long Private Sub Command1_Click() ret = SHAddToRecentDocs(2, "c:\archivo.txt") End Sub

Relacionados

Implementar Lista de archivos recientes - Lista MRU

Buscar en Recursos vb