Cómo eliminar iconos del escritorio usando la programación vb
Una lista1, un comando1
Subcomando privado1_Click()
Lista1.Clear
pat = Environ("userprofile") & "\ Desktop*\.* " 'Obtener la ruta del escritorio del usuario actual
a = Dir(pat)
Do
List1.AddItem a
a = Dir
Bucle mientras <> ""
End Sub
Sub lista privada1_DblClick() 'Haga doble clic para eliminar
Eliminar ( Environ(" perfil de usuario") & "\desktop\" & List1.Text)
Command1_Click 'Actualizar lista
Fin Sub