Red de conocimiento informático - Conocimiento del nombre de dominio - Cómo eliminar iconos del escritorio usando la programación vb

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